2:22 a.m.
APPROVE COMMIT
Norbert, one more to come, just waiting on Aiden.
NOTE: This patch has been committed.
gnus patch:
ChangeLog files diff command: cvs -q diff -U 0
Files affected: ChangeLog
Source files diff command: cvs -q diff -uN
Files affected: lisp/gnus-util.el
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/ChangeLog,v
retrieving revision 1.85
diff -u -p -U0 -r1.85 ChangeLog
--- ChangeLog 13 Mar 2005 01:39:15 -0000 1.85
+++ ChangeLog 13 Mar 2005 02:19:40 -0000
＠＠ -2,0 +3,5 ＠＠
+ * lisp/gnus-util.el (gnus-emacs-version): Support SXEmacs in
+ `gnus-extended-version'.
+
+2005-03-13 Steve Youngs <steve(a)sxemacs.org>
+
Index: lisp/gnus-util.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/gnus-util.el,v
retrieving revision 1.8
diff -u -p -u -r1.8 gnus-util.el
--- lisp/gnus-util.el 13 Mar 2005 00:23:30 -0000 1.8
+++ lisp/gnus-util.el 13 Mar 2005 02:19:06 -0000
＠＠ -1506,7 +1506,8 ＠＠ predicate on the elements."
(nconc (nreverse res) list1 list2))))
(eval-when-compile
- (defvar xemacs-codename))
+ (defvar xemacs-codename)
+ (defvar sxemacs-codename)
(defun gnus-emacs-version ()
"Stringified Emacs version."
＠＠ -1525,22 +1526,20 ＠＠ predicate on the elements."
(if system-v
(concat " (" system-v ")")
"")))
- ((string-match
- "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
- emacs-version)
- (concat
- (match-string 1 emacs-version)
- (format "/%d.%d" emacs-major-version emacs-minor-version)
- (if (match-beginning 3)
- (match-string 3 emacs-version)
- "")
- (if (boundp 'xemacs-codename)
- (concat
- " (" xemacs-codename
- (if system-v
- (concat ", " system-v ")")
- ")"))
- "")))
+ ((featurep 'sxemacs)
+ (concat "SXEmacs/" emacs-program-version
+ (when system-v
+ (concat " ("
+ (when sxemacs-codename
+ (concat sxemacs-codename ", "))
+ system-v ")"))))
+ ((featurep 'xemacs)
+ (concat "XEmacs/" emacs-program-version
+ (when system-v
+ (concat " ("
+ (when xemacs-codename
+ (concat xemacs-codename ", "))
+ system-v ")"))))
(t emacs-version))))
(defun gnus-rename-file (old-path new-path &optional trim)
--
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
| I am Dyslexic of Borg. |
| Fusistance is retile. Your arse will be laminated. |
|------------------------------------<steve(a)sxemacs.org>---|
3:23 a.m.
>>>> "SY" == Steve Youngs
<steve(a)sxemacs.org> writes:
SY> - (defvar xemacs-codename))
SY> + (defvar xemacs-codename)
SY> + (defvar sxemacs-codename)
Does SXEmacs need a separate codename variable? It's not a branch of
XEmacs or an add-on (eg, Mule used to have its own codenames), it's an
independent project. Shouldn't you just use xemacs-codename? If you
want to change the semantics in a backward compatible way, I'm sure
we'd cooperate, and we probably would if it wasn't too incompatible.
It's up to you, of course.
--
Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Ask not how you can "do" free software business;
ask what your business can "do for" free software.
5:47 a.m.
* Stephen J Turnbull <stephen(a)xemacs.org> writes:
Does SXEmacs need a separate codename variable?
Absolutely.
--
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
| I am Dyslexic of Borg. |
| Fusistance is retile. Your arse will be laminated. |
|------------------------------------<steve(a)sxemacs.org>---|
6993
days inactive
6994
days old
2 comments
2 participants
participants (2)
-
Stephen J. Turnbull -
Steve Youngs