diff options
| author | Paul Eggert | 2020-05-18 15:19:49 -0700 |
|---|---|---|
| committer | Paul Eggert | 2020-05-18 15:21:25 -0700 |
| commit | 3d1bcfba5e21b29be8669aa2a8f27b344c9e02fd (patch) | |
| tree | 5296d9d4af96467eaff7182ebce09cdf537dba91 | |
| parent | 018eb31fc0a8e558975be3835b9596408bfc3a0c (diff) | |
| download | emacs-3d1bcfba5e21b29be8669aa2a8f27b344c9e02fd.tar.gz emacs-3d1bcfba5e21b29be8669aa2a8f27b344c9e02fd.zip | |
Redo RCS Id for pdumper
* lisp/version.el: Don’t put an RCS Id style string into the
executable via purecopy, as this does not work with the pdumper.
* src/emacs.c (RCS_Id): New constant, for 'ident'.
| -rw-r--r-- | lisp/version.el | 4 | ||||
| -rw-r--r-- | src/emacs.c | 5 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lisp/version.el b/lisp/version.el index 24da21c731c..b247232dcfd 100644 --- a/lisp/version.el +++ b/lisp/version.el | |||
| @@ -163,8 +163,4 @@ correspond to the running Emacs. | |||
| 163 | Optional argument DIR is a directory to use instead of `source-directory'." | 163 | Optional argument DIR is a directory to use instead of `source-directory'." |
| 164 | (emacs-repository-branch-git (or dir source-directory))) | 164 | (emacs-repository-branch-git (or dir source-directory))) |
| 165 | 165 | ||
| 166 | ;; We put version info into the executable in the form that `ident' uses. | ||
| 167 | (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version)) | ||
| 168 | " $\n")) | ||
| 169 | |||
| 170 | ;;; version.el ends here | 166 | ;;; version.el ends here |
diff --git a/src/emacs.c b/src/emacs.c index ea9c4cd79dc..49793fd1e86 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -124,6 +124,11 @@ static const char emacs_version[] = PACKAGE_VERSION; | |||
| 124 | static const char emacs_copyright[] = COPYRIGHT; | 124 | static const char emacs_copyright[] = COPYRIGHT; |
| 125 | static const char emacs_bugreport[] = PACKAGE_BUGREPORT; | 125 | static const char emacs_bugreport[] = PACKAGE_BUGREPORT; |
| 126 | 126 | ||
| 127 | /* Put version info into the executable in the form that 'ident' uses. */ | ||
| 128 | char const EXTERNALLY_VISIBLE RCS_Id[] | ||
| 129 | = "$Id" ": GNU Emacs " PACKAGE_VERSION | ||
| 130 | " (" EMACS_CONFIGURATION " " EMACS_CONFIG_FEATURES ") $"; | ||
| 131 | |||
| 127 | /* Empty lisp strings. To avoid having to build any others. */ | 132 | /* Empty lisp strings. To avoid having to build any others. */ |
| 128 | Lisp_Object empty_unibyte_string, empty_multibyte_string; | 133 | Lisp_Object empty_unibyte_string, empty_multibyte_string; |
| 129 | 134 | ||