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 |
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: |