aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2020-05-18 15:19:49 -0700
committerPaul Eggert2020-05-18 15:21:25 -0700
commit3d1bcfba5e21b29be8669aa2a8f27b344c9e02fd (patch)
tree5296d9d4af96467eaff7182ebce09cdf537dba91
parent018eb31fc0a8e558975be3835b9596408bfc3a0c (diff)
downloademacs-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.el4
-rw-r--r--src/emacs.c5
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.
163Optional argument DIR is a directory to use instead of `source-directory'." 163Optional 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;
124static const char emacs_copyright[] = COPYRIGHT; 124static const char emacs_copyright[] = COPYRIGHT;
125static const char emacs_bugreport[] = PACKAGE_BUGREPORT; 125static const char emacs_bugreport[] = PACKAGE_BUGREPORT;
126 126
127/* Put version info into the executable in the form that 'ident' uses. */
128char 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. */
128Lisp_Object empty_unibyte_string, empty_multibyte_string; 133Lisp_Object empty_unibyte_string, empty_multibyte_string;
129 134