emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/version.el


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/version.el
Date: Tue, 04 Feb 2003 07:12:31 -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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]