diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2024-12-09 21:17:09 +0100 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2024-12-12 22:48:18 +0100 |
commit | 8da7086be6d0b0387c3ffbede062c4349045af70 (patch) | |
tree | 31593a96b7f1625b9d3db620fda6e8c9a0fa2dce /lisp/emacs-lisp/warnings.el | |
parent | b0afe306b748a3fa140cde580239d0f99669850a (diff) | |
download | emacs-8da7086be6d0b0387c3ffbede062c4349045af70.tar.gz emacs-8da7086be6d0b0387c3ffbede062c4349045af70.tar.bz2 emacs-8da7086be6d0b0387c3ffbede062c4349045af70.zip |
Don't call purecopy in emacs-lisp/*.el
* lisp/emacs-lisp/byte-run.el (define-obsolete-face-alias)
(make-obsolete-variable, make-obsolete):
* lisp/emacs-lisp/cl-extra.el (cl-type-definition):
* lisp/emacs-lisp/cl-preloaded.el (cl-assertion-failed):
* lisp/emacs-lisp/cl-print.el (help-byte-code):
* lisp/emacs-lisp/derived.el (define-derived-mode):
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
* lisp/emacs-lisp/eldoc.el (eldoc-minor-mode-string):
* lisp/emacs-lisp/gv.el (make-obsolete-generalized-variable):
* lisp/emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression):
* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--parse-file):
* lisp/emacs-lisp/warnings.el (warning-type-format):
Remove calls to purecopy.
Diffstat (limited to 'lisp/emacs-lisp/warnings.el')
-rw-r--r-- | lisp/emacs-lisp/warnings.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index b11e1ebeb70..192d2331bcc 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -172,7 +172,7 @@ also call that function before the next warning.") ;; safely, testing the existing value, before they call one of the ;; warnings functions. ;;;###autoload -(defvar warning-type-format (purecopy " (%s)") +(defvar warning-type-format " (%s)" "Format for displaying the warning type in the warning message. The result of formatting the type this way gets included in the message under the control of the string in `warning-levels'.") |