/[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.37 by lute, Mon Jul 4 23:09:00 2005 UTC revision 2.38 by lektu, Thu Jul 21 10:38:01 2005 UTC
# Line 47  Time at which Emacs was dumped out.") Line 47  Time at which Emacs was dumped out.")
47    
48  (defconst emacs-build-system (system-name))  (defconst emacs-build-system (system-name))
49    
50  (defun emacs-version  (&optional here) "\  (defun emacs-version (&optional here) "\
51  Return string describing the version of Emacs that is running.  Return string describing the version of Emacs that is running.
52  If optional argument HERE is non-nil, insert string at point.  If optional argument HERE is non-nil, insert string at point.
53  Don't use this function in programs to choose actions according  Don't use this function in programs to choose actions according
# Line 83  to the system configuration; look at `sy Line 83  to the system configuration; look at `sy
83    
84  ;; We put version info into the executable in the form that `ident' uses.  ;; We put version info into the executable in the form that `ident' uses.
85  (or (memq system-type '(vax-vms windows-nt))  (or (memq system-type '(vax-vms windows-nt))
86      (purecopy (concat "\n " (subst-char-in-string ?\n ? (emacs-version))      (purecopy (concat "\n " (subst-char-in-string ?\n ?\s (emacs-version))
87                        " $\n")))                        " $\n")))
88    
89  ;;Local variables:  ;;Local variables:

Legend:
Removed from v.2.37  
changed lines
  Added in v.2.38

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