[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/version.el
From: |
Francesco Potortì |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/version.el |
Date: |
Tue, 18 Mar 2003 10:20:09 -0500 |
Index: emacs/lisp/version.el
diff -c emacs/lisp/version.el:2.31 emacs/lisp/version.el:2.32
*** emacs/lisp/version.el:2.31 Tue Oct 1 12:57:47 2002
--- emacs/lisp/version.el Tue Feb 4 07:12:31 2003
***************
*** 53,65 ****
Don't use this function in programs to choose actions according
to the system configuration; look at `system-configuration' instead."
(interactive "P")
! (let ((version-string
(format (if (not (interactive-p))
"GNU Emacs %s (%s%s%s)\n of %s on %s"
"GNU Emacs %s (%s%s%s) of %s on %s")
emacs-version
system-configuration
! (cond ((featurep 'motif)
(concat ", " (substring motif-version-string 4)))
((featurep 'x-toolkit) ", X toolkit")
(t ""))
--- 53,65 ----
Don't use this function in programs to choose actions according
to the system configuration; look at `system-configuration' instead."
(interactive "P")
! (let ((version-string
(format (if (not (interactive-p))
"GNU Emacs %s (%s%s%s)\n of %s on %s"
"GNU Emacs %s (%s%s%s) of %s on %s")
emacs-version
system-configuration
! (cond ((featurep 'motif)
(concat ", " (substring motif-version-string 4)))
((featurep 'x-toolkit) ", X toolkit")
(t ""))
***************
*** 70,76 ****
"")
(format-time-string "%Y-%m-%d" emacs-build-time)
emacs-build-system)))
! (if here
(insert version-string)
(if (interactive-p)
(message "%s" version-string)
--- 70,76 ----
"")
(format-time-string "%Y-%m-%d" emacs-build-time)
emacs-build-system)))
! (if here
(insert version-string)
(if (interactive-p)
(message "%s" version-string)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/version.el,
Francesco Potortì <=