/[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.30 by eliz, Sat May 25 11:26:14 2002 UTC revision 2.30.2.1 by miles, Fri Apr 4 06:20:11 2003 UTC
# Line 1  Line 1 
1  ;;; version.el --- record version number of Emacs  ;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*-
2    
3  ;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001  ;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001
4  ;;;   Free Software Foundation, Inc.  ;;;   Free Software Foundation, Inc.
# 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.30  
changed lines
  Added in v.2.30.2.1

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