[PATCH pkgs (prog-modes)] diff-mode regexp fixes, fix faces for 21.4
19 years
Ville Skyttä
Ville Skyttä
This makes diff-mode.el recognize hunk and file boundaries better and
makes faces work as intended on 21.4 which doesn't have the :inherit
specifier. Will commit tomorrow unless someone yells.
2005-12-01 Ville Skyttä <scop(a)xemacs.org>
* diff-mode.el: Sync hunk and file recognition improvements and
some trivial bits from GNU Emacs CVS.
(diff-removed-face): Don't use :inherit (not in 21.4).
(diff-added-face): Ditto.
(diff-function-face): Ditto.
(diff-nonexistent-face): Ditto.
- 1 participants
- 1 comments
[PATCH] xemacs-21.5-clean: Another package-get.el update reflecting latest http://www.xemacs.org/Releases/ information
19 years
Adrian Aichner
Adrian Aichner
xemacs-21.5-clean ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: lisp/ChangeLog
Index: lisp/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.689
diff -u -U0 -r1.689 ChangeLog
--- lisp/ChangeLog 25 Oct 2005 11:28:23 -0000 1.689
+++ lisp/ChangeLog 27 Oct 2005 23:24:15 -0000
＠＠ -0,0 +1,7 ＠＠
+2005-10-28 Adrian Aichner <adrian(a)xemacs.org>
+
+ * package-get.el (package-get-download-sites): Update reflecting
+ latest http://www.xemacs.org/Releases/ information generated by
+ xemacs-builds/adrian/website/package-get-2-download-sites.el.
+ * package-get.el (package-get-pre-release-download-sites): Ditto.
+
xemacs-21.5-clean source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: lisp/package-get.el
Index: lisp/package-get.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/package-get.el,v
retrieving revision 1.71
diff -u -w -r1.71 package-get.el
--- lisp/package-get.el 24 Oct 2005 22:40:21 -0000 1.71
+++ lisp/package-get.el 27 Oct 2005 23:22:36 -0000
＠＠ -227,15 +227,15 ＠＠
("Japan (aist.go.jp)" "ring.aist.go.jp" "pub/text/xemacs/packages")
("Japan (asahi-net.or.jp)" "ring.asahi-net.or.jp" "pub/text/xemacs/packages")
("Japan (dti.ad.jp)" "ftp.dti.ad.jp" "pub/unix/editor/xemacs/packages")
- ("Japan (jaist.ac.jp)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages")
- ("Japan (jp.xemacs.org)" "ftp.jp.xemacs.org" "pub/GNU/xemacs/packages")
+; ("Japan (jaist.ac.jp)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages")
+; ("Japan (jp.xemacs.org)" "ftp.jp.xemacs.org" "pub/GNU/xemacs/packages")
; ("Japan (nucba.ac.jp)" "mirror.nucba.ac.jp" "mirror/xemacs/packages")
("Japan (sut.ac.jp)" "sunsite.sut.ac.jp" "pub/archives/packages/xemacs/packages")
("Korea (kr.xemacs.org)" "ftp.kr.xemacs.org" "pub/tools/emacs/xemacs/packages")
("New Zealand (nz.xemacs.org)" "ftp.nz.xemacs.org" "mirror/ftp.xemacs.org/packages")
("Norway (no.xemacs.org)" "ftp.no.xemacs.org" "pub/xemacs/packages")
("Poland (pl.xemacs.org)" "ftp.pl.xemacs.org" "pub/unix/editors/xemacs/packages")
- ("Russia (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/xemacs/packages")
+ ("Russia (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/emacs/xemacs/packages")
; ("South Africa (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.xemacs.org/packages")
("Sweden (se.xemacs.org)" "ftp.se.xemacs.org" "pub/gnu/xemacs/packages")
("Switzerland (ch.xemacs.org)" "ftp.ch.xemacs.org" "mirror/xemacs/packages")
＠＠ -245,7 +245,8 ＠＠
("US (stealth.net)" "ftp.stealth.net" "pub/mirrors/ftp.xemacs.org/pub/xemacs/packages")
("US (unc.edu)" "metalab.unc.edu" "pub/packages/editors/xemacs/packages")
("US (us.xemacs.org)" "ftp.us.xemacs.org" "pub/xemacs/packages")
- ("US (utk.edu)" "ftp.sunsite.utk.edu" "pub/xemacs/packages"))
+; ("US (utk.edu)" "ftp.sunsite.utk.edu" "pub/xemacs/packages")
+ )
"*List of remote sites available for downloading packages.
List format is '(site-description site-name directory-on-site).
SITE-DESCRIPTION is a textual description of the site. SITE-NAME
＠＠ -261,7 +262,7 ＠＠
(defcustom package-get-pre-release-download-sites
'(
;; Main XEmacs Site (ftp.xemacs.org)
- ("Pre-Releases (Main XEmacs Site)" "ftp.xemacs.org"
+ ("US Pre-Releases (Main XEmacs Site)" "ftp.xemacs.org"
"pub/xemacs/beta/experimental/packages")
;; In alphabetical order of Country, our mirrors...
("Argentina Pre-Releases (xmundo.net)" "xemacs.xmundo.net"
＠＠ -310,10 +311,10 ＠＠
"pub/text/xemacs/beta/experimental/packages")
("Japan Pre-Releases (dti.ad.jp)" "ftp.dti.ad.jp"
"pub/unix/editor/xemacs/beta/experimental/packages")
- ("Japan Pre-Releases (jaist.ac.jp)" "ftp.jaist.ac.jp"
- "pub/GNU/xemacs/beta/experimental/packages")
- ("Japan Pre-Releases (jp.xemacs.org)" "ftp.jp.xemacs.org"
- "pub/GNU/xemacs/beta/experimental/packages")
+; ("Japan Pre-Releases (jaist.ac.jp)" "ftp.jaist.ac.jp"
+; "pub/GNU/xemacs/beta/experimental/packages")
+; ("Japan Pre-Releases (jp.xemacs.org)" "ftp.jp.xemacs.org"
+; "pub/GNU/xemacs/beta/experimental/packages")
("Japan Pre-Releases (sut.ac.jp)" "sunsite.sut.ac.jp"
"pub/archives/packages/xemacs/xemacs-21.5/experimental/packages")
("Korea (kr.xemacs.org)" "ftp.kr.xemacs.org"
＠＠ -325,7 +326,7 ＠＠
("Poland Pre-Releases (pl.xemacs.org)" "ftp.pl.xemacs.org"
"pub/unix/editors/xemacs/beta/experimental/packages")
("Russia Pre-Releases (ru.xemacs.org)" "ftp.ru.xemacs.org"
- "pub/xemacs/beta/experimental/packages")
+ "pub/emacs/xemacs/beta/experimental/packages")
; ("South Africa Pre-Releases (za.xemacs.org)" "ftp.za.xemacs.org"
; "mirrorsites/ftp.xemacs.org/beta/experimental/packages")
("Sweden Pre-Releases (se.xemacs.org)" "ftp.se.xemacs.org"
＠＠ -344,8 +345,9 ＠＠
"pub/packages/editors/xemacs/beta/experimental/packages")
("US Pre-Releases (us.xemacs.org)" "ftp.us.xemacs.org"
"pub/xemacs/beta/experimental/packages")
- ("US Pre-Releases (utk.edu)" "ftp.sunsite.utk.edu"
- "pub/xemacs/beta/experimental/packages"))
+; ("US Pre-Releases (utk.edu)" "ftp.sunsite.utk.edu"
+; "pub/xemacs/beta/experimental/packages")
+)
"*List of remote sites available for downloading \"Pre-Release\" packages.
List format is '(site-description site-name directory-on-site).
SITE-DESCRIPTION is a textual description of the site. SITE-NAME
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 2 participants
- 5 comments
PATCH [packages(edit-utils/power-macros)] fix to make work under SXEmacs
19 years
Zajcev Evgeny
Zajcev Evgeny
Use of (boundp 'xemacs-logo) form causes problems to SXEmacs (
'xemacs-logo is unbound in SXEmacs) -- (featurep 'xemacs) is safer ..
-----
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/ChangeLog,v
retrieving revision 1.214
diff -u -p -r1.214 ChangeLog
--- ChangeLog 2005/11/25 08:15:15 1.214
+++ ChangeLog 2005/11/28 20:29:02
＠＠ -1,3 +1,8 ＠＠
+2005-11-28 Zajcev Evgeny <zevlg(a)yandex.ru>
+
+ * power-macros.el: Use (featurep 'xemacs) instead of (boundp
+ 'xemacs-logo)
+
2005-11-25 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 2.31 released.
Index: power-macros.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/power-macros.el,v
retrieving revision 1.1
diff -u -p -r1.1 power-macros.el
--- power-macros.el 2000/10/18 17:54:30 1.1
+++ power-macros.el 2005/11/28 20:29:03
＠＠ -226,10 +226,10 ＠＠ be accurate) by pressing \\[pm-define]."
; Make the compiler shut up under GNU-Emacs:
(eval-when-compile
- (or (boundp 'xemacs-logo)
+ (or (featurep 'xemacs)
(boundp 'event-closest-point)
(defun event-closest-point (dummy) 'dummy))
- (or (boundp 'xemacs-logo)
+ (or (featurep 'xemacs)
(boundp 'events-to-keys)
(defun events-to-keys(dummy) 'dummy))
)
＠＠ -537,7 +537,7 ＠＠ In this buffer you have the following po
(add-text-properties p2 (point) '(mouse-face highlight))
;;---------- End of tuple
- (if (not (boundp 'xemacs-logo))
+ (if (not (featurep 'xemacs))
(insert "\n"))
(push (list tuple-physical-start tuple-logical-start (point)
＠＠ -564,7 +564,7 ＠＠ In this buffer you have the following po
(define-key pm-normal-edit-map [(control c) (control c)]
(lambda () (interactive) (kill-buffer (current-buffer))))
(define-key pm-normal-edit-map [(return)] 'pm-edit-field-return)
- (if (boundp 'xemacs-logo)
+ (if (featurep 'xemacs)
(define-key pm-normal-edit-map [(button1)] 'pm-edit-field-mouse)
(define-key pm-normal-edit-map [(mouse-1)] 'pm-edit-field-mouse))
(define-key pm-normal-edit-map [(d)] 'pm-set-delete-mark)
＠＠ -653,7 +653,7 ＠＠ type."
(defun pm-edit-field-mouse (event)
"See the description for `pm-edit-field'."
(interactive "e")
- (if (boundp 'xemacs-logo)
+ (if (featurep 'xemacs)
(goto-char (event-closest-point event)))
(pm-edit-field t))
＠＠ -855,7 +855,7 ＠＠ field in the manage buffer."
(define-key keym [(control g)]
(lambda () (interactive)
(pm-end-edit-or-abort-desc-field 'abort)))
- (if (boundp 'xemacs-logo)
+ (if (featurep 'xemacs)
(add-text-properties start end `(keymap ,keym))
(add-text-properties start end `(local-map ,keym))))
＠＠ -1920,7 +1920,7 ＠＠ The buffer is created if it doesn't exis
(defun pm-read-key-sequence (question)
"Reads a key sequence."
(let ((key (read-key-sequence question nil t)))
- (if (boundp 'xemacs-logo)
+ (if (featurep 'xemacs)
(events-to-keys key)
key)))
-----
Thanks!
--
lg
- 2 participants
- 1 comments