/[emacs]/emacs/lisp/version.el
ViewVC logotype

Diff of /emacs/lisp/version.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.31 by lektu, Tue Oct 1 16:57:47 2002 UTC revision 2.32 by lektu, Tue Feb 4 12:12:31 2003 UTC
# Line 53  If optional argument HERE is non-nil, in Line 53  If optional argument HERE is non-nil, in
53  Don't use this function in programs to choose actions according  Don't use this function in programs to choose actions according
54  to the system configuration; look at `system-configuration' instead."  to the system configuration; look at `system-configuration' instead."
55    (interactive "P")    (interactive "P")
56    (let ((version-string    (let ((version-string
57           (format (if (not (interactive-p))           (format (if (not (interactive-p))
58                       "GNU Emacs %s (%s%s%s)\n of %s on %s"                       "GNU Emacs %s (%s%s%s)\n of %s on %s"
59                     "GNU Emacs %s (%s%s%s) of %s on %s")                     "GNU Emacs %s (%s%s%s) of %s on %s")
60                   emacs-version                   emacs-version
61                   system-configuration                   system-configuration
62                   (cond ((featurep 'motif)                   (cond ((featurep 'motif)
63                          (concat ", " (substring motif-version-string 4)))                          (concat ", " (substring motif-version-string 4)))
64                         ((featurep 'x-toolkit) ", X toolkit")                         ((featurep 'x-toolkit) ", X toolkit")
65                         (t ""))                         (t ""))
# Line 70  to the system configuration; look at `sy Line 70  to the system configuration; look at `sy
70                     "")                     "")
71                   (format-time-string "%Y-%m-%d" emacs-build-time)                   (format-time-string "%Y-%m-%d" emacs-build-time)
72                   emacs-build-system)))                   emacs-build-system)))
73      (if here      (if here
74          (insert version-string)          (insert version-string)
75        (if (interactive-p)        (if (interactive-p)
76            (message "%s" version-string)            (message "%s" version-string)

Legend:
Removed from v.2.31  
changed lines
  Added in v.2.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26