76 |
(message "%s" version-string) |
(message "%s" version-string) |
77 |
version-string)))) |
version-string)))) |
78 |
|
|
79 |
;;; We hope that this alias is easier for people to find. |
;; We hope that this alias is easier for people to find. |
80 |
(defalias 'version 'emacs-version) |
(defalias 'version 'emacs-version) |
81 |
|
|
82 |
;;; We put version info into the executable in the form that ident(1) uses. |
;; We put version info into the executable in the form that ident(1) uses. |
83 |
(or (memq system-type '(vax-vms windows-nt)) |
(or (memq system-type '(vax-vms windows-nt)) |
84 |
(purecopy (concat "\n " (subst-char-in-string ?\n ? (emacs-version)) |
(purecopy (concat "\n " (subst-char-in-string ?\n ? (emacs-version)) |
85 |
" $\n"))) |
" $\n"))) |