mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Delete remaining calls to purecopy

Browse source 
* lisp/button.el (default-button):
* lisp/calendar/holidays.el (holiday-solar-holidays)
(holiday-bahai-holidays, holiday-islamic-holidays)
(holiday-christian-holidays, holiday-hebrew-holidays)
(holiday-oriental-holidays, holiday-general-holidays):
* lisp/comint.el (comint-file-name-prefix):
* lisp/composite.el (unicode-category-table):
* lisp/cus-face.el (custom-declare-face):
* lisp/custom.el (custom-add-load, custom-add-package-version)
(custom-add-version, custom-add-link, custom-declare-group)
(custom-declare-variable):
* lisp/dired.el (dired-listing-switches):
* lisp/epa-hook.el (epa-file-name-regexp):
* lisp/faces.el (x-font-regexp, x-font-regexp-head)
(x-font-regexp-slant, x-font-regexp-weight, )
(set-face-attribute, set-face-documentation, face-x-resources)
(face-font-registry-alternatives, face-font-family-alternatives)
(term-file-prefix):
* lisp/find-file.el (ff-special-constructs):
* lisp/format.el (format-alist):
* lisp/help.el (help-for-help):
* lisp/image-file.el (image-file-name-extensions):
* lisp/info.el:
* lisp/isearch.el (isearch-help-for-help-internal)
(search-whitespace-regexp):
* lisp/jka-cmpr-hook.el (jka-compr-load-suffixes)
(jka-compr-mode-alist-additions)
(jka-compr-compression-info-list, jka-compr-build-file-regexp):
* lisp/language/ethiopic.el (font-ccl-encoder-alist):
* lisp/language/korea-util.el (default-korean-keyboard):
* lisp/language/tibetan.el (tibetan-precomposition-rule-regexp)
(tibetan-precomposed-regexp):
* lisp/locate.el (locate-ls-subdir-switches):
* lisp/lpr.el (lpr-command):
* lisp/mail/rmail.el (rmail-secondary-file-regexp)
(rmail-secondary-file-directory, rmail-highlighted-headers)
(rmail-ignored-headers, rmail-spool-directory, rmail-file-name):
* lisp/mail/sendmail.el (mail-default-directory)
(mail-signature-file, mail-citation-prefix-regexp)
(mail-personal-alias-file, mail-header-separator):
* lisp/menu-bar.el (yank-menu):
* lisp/net/eudc.el (eudc-tools-menu):
* lisp/newcomment.el (comment-padding, comment-end):
* lisp/obsolete/autoload.el (autoload-generate-file-autoloads):
* lisp/progmodes/hideshow.el (hs-special-modes-alist):
* lisp/ps-print.el (ps-page-dimensions-database):
* lisp/rfn-eshadow.el (file-name-shadow-tty-properties):
* lisp/shell.el (shell-dumb-shell-regexp):
* lisp/simple.el (overwrite-mode-binary, overwrite-mode-textual)
(mark-inactive, shell-command-switch)
(next-error-overlay-arrow-position):
* lisp/subr.el (package--builtin-versions, eval-after-load):
* lisp/tab-bar.el ([tab-bar]):
* lisp/term/pgtk-win.el (x-gtk-stock-map):
* lisp/term/x-win.el (x-gtk-stock-map):
* lisp/tool-bar.el ([tool-bar]):
* lisp/widget.el (define-widget): Remove calls to purecopy.
This commit is contained in:
Stefan Kangas 2024-12-09 21:26:25 +01:00
parent 5afc273354
commit d6aeb1a260
38 changed files with 172 additions and 207 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/button.el
View file

@ -97,7 +97,7 @@ Disabling the mode will remove all buttons in the current buffer."
(put 'default-button 'type 'button) (put 'default-button 'type 'button)
;; `action' may be either a function to call, or a marker to go to. ;; `action' may be either a function to call, or a marker to go to.
(put 'default-button 'action #'ignore) (put 'default-button 'action #'ignore)
(put 'default-button 'help-echo (purecopy "mouse-2, RET: Push this button")) (put 'default-button 'help-echo "mouse-2, RET: Push this button")
;; Make overlay buttons go away if their underlying text is deleted. ;; Make overlay buttons go away if their underlying text is deleted.
(put 'default-button 'evaporate t) (put 'default-button 'evaporate t)
;; Prevent insertions adjacent to text-property buttons from ;; Prevent insertions adjacent to text-property buttons from

21
lisp/calendar/holidays.el
View file

@ -44,7 +44,6 @@
;;;###autoload ;;;###autoload
(defcustom holiday-general-holidays (defcustom holiday-general-holidays
(mapcar 'purecopy
'((holiday-fixed 1 1 "New Year's Day") '((holiday-fixed 1 1 "New Year's Day")
(holiday-float 1 1 3 "Martin Luther King Day") (holiday-float 1 1 3 "Martin Luther King Day")
(holiday-fixed 2 2 "Groundhog Day") (holiday-fixed 2 2 "Groundhog Day")
@ -61,7 +60,7 @@
(holiday-float 10 1 2 "Columbus Day") (holiday-float 10 1 2 "Columbus Day")
(holiday-fixed 10 31 "Halloween") (holiday-fixed 10 31 "Halloween")
(holiday-fixed 11 11 "Veteran's Day") (holiday-fixed 11 11 "Veteran's Day")
(holiday-float 11 4 4 "Thanksgiving"))) (holiday-float 11 4 4 "Thanksgiving"))
"General holidays. Default value is for the United States. "General holidays. Default value is for the United States.
See the documentation for `calendar-holidays' for details." See the documentation for `calendar-holidays' for details."
:type 'sexp) :type 'sexp)
@ -70,7 +69,6 @@ See the documentation for `calendar-holidays' for details."
;;;###autoload ;;;###autoload
(defcustom holiday-oriental-holidays (defcustom holiday-oriental-holidays
(mapcar 'purecopy
'((holiday-chinese-new-year) '((holiday-chinese-new-year)
(if calendar-chinese-all-holidays-flag (if calendar-chinese-all-holidays-flag
(append (append
@ -81,7 +79,7 @@ See the documentation for `calendar-holidays' for details."
(holiday-chinese 8 15 "Mid-Autumn Festival") (holiday-chinese 8 15 "Mid-Autumn Festival")
(holiday-chinese 9 9 "Double Ninth Festival") (holiday-chinese 9 9 "Double Ninth Festival")
(holiday-chinese-winter-solstice) (holiday-chinese-winter-solstice)
)))) )))
"Oriental holidays. "Oriental holidays.
See the documentation for `calendar-holidays' for details." See the documentation for `calendar-holidays' for details."
:version "23.1" ; added more holidays :version "23.1" ; added more holidays
@ -107,14 +105,13 @@ See the documentation for `calendar-holidays' for details."
;;;###autoload ;;;###autoload
(defcustom holiday-hebrew-holidays (defcustom holiday-hebrew-holidays
(mapcar 'purecopy
'((holiday-hebrew-passover) '((holiday-hebrew-passover)
(holiday-hebrew-rosh-hashanah) (holiday-hebrew-rosh-hashanah)
(holiday-hebrew-hanukkah) (holiday-hebrew-hanukkah)
(if calendar-hebrew-all-holidays-flag (if calendar-hebrew-all-holidays-flag
(append (append
(holiday-hebrew-tisha-b-av) (holiday-hebrew-tisha-b-av)
(holiday-hebrew-misc))))) (holiday-hebrew-misc))))
"Jewish holidays. "Jewish holidays.
See the documentation for `calendar-holidays' for details." See the documentation for `calendar-holidays' for details."
:type 'sexp :type 'sexp
@ -125,7 +122,6 @@ See the documentation for `calendar-holidays' for details."
;;;###autoload ;;;###autoload
(defcustom holiday-christian-holidays (defcustom holiday-christian-holidays
(mapcar 'purecopy
'((holiday-easter-etc) ; respects calendar-christian-all-holidays-flag '((holiday-easter-etc) ; respects calendar-christian-all-holidays-flag
(holiday-fixed 12 25 "Christmas") (holiday-fixed 12 25 "Christmas")
(if calendar-christian-all-holidays-flag (if calendar-christian-all-holidays-flag
@ -134,7 +130,7 @@ See the documentation for `calendar-holidays' for details."
(holiday-julian 12 25 "Christmas (Julian calendar)") (holiday-julian 12 25 "Christmas (Julian calendar)")
(holiday-greek-orthodox-easter) (holiday-greek-orthodox-easter)
(holiday-fixed 8 15 "Assumption") (holiday-fixed 8 15 "Assumption")
(holiday-advent 0 "Advent"))))) (holiday-advent 0 "Advent"))))
"Christian holidays. "Christian holidays.
See the documentation for `calendar-holidays' for details." See the documentation for `calendar-holidays' for details."
:type 'sexp) :type 'sexp)
@ -143,7 +139,6 @@ See the documentation for `calendar-holidays' for details."
;;;###autoload ;;;###autoload
(defcustom holiday-islamic-holidays (defcustom holiday-islamic-holidays
(mapcar 'purecopy
'((holiday-islamic-new-year) '((holiday-islamic-new-year)
(holiday-islamic 9 1 "Ramadan Begins") (holiday-islamic 9 1 "Ramadan Begins")
(if calendar-islamic-all-holidays-flag (if calendar-islamic-all-holidays-flag
@ -154,7 +149,7 @@ See the documentation for `calendar-holidays' for details."
(holiday-islamic 8 15 "Shab-e-Bara't") (holiday-islamic 8 15 "Shab-e-Bara't")
(holiday-islamic 9 27 "Shab-e Qadr") (holiday-islamic 9 27 "Shab-e Qadr")
(holiday-islamic 10 1 "Id-al-Fitr") (holiday-islamic 10 1 "Id-al-Fitr")
(holiday-islamic 12 10 "Id-al-Adha"))))) (holiday-islamic 12 10 "Id-al-Adha"))))
"Islamic holidays. "Islamic holidays.
See the documentation for `calendar-holidays' for details." See the documentation for `calendar-holidays' for details."
:type 'sexp) :type 'sexp)
@ -163,7 +158,6 @@ See the documentation for `calendar-holidays' for details."
;;;###autoload ;;;###autoload
(defcustom holiday-bahai-holidays (defcustom holiday-bahai-holidays
(mapcar 'purecopy
'((holiday-bahai-new-year) '((holiday-bahai-new-year)
(holiday-bahai-ridvan) ; respects calendar-bahai-all-holidays-flag (holiday-bahai-ridvan) ; respects calendar-bahai-all-holidays-flag
(holiday-fixed 5 23 "Declaration of the Báb") (holiday-fixed 5 23 "Declaration of the Báb")
@ -174,7 +168,7 @@ See the documentation for `calendar-holidays' for details."
(if calendar-bahai-all-holidays-flag (if calendar-bahai-all-holidays-flag
(append (append
(holiday-fixed 11 26 "Day of the Covenant") (holiday-fixed 11 26 "Day of the Covenant")
(holiday-fixed 11 28 "Ascension of `Abdu’l-Bahá"))))) (holiday-fixed 11 28 "Ascension of `Abdu’l-Bahá"))))
"Bahá’í holidays. "Bahá’í holidays.
See the documentation for `calendar-holidays' for details." See the documentation for `calendar-holidays' for details."
:type 'sexp) :type 'sexp)
@ -183,7 +177,6 @@ See the documentation for `calendar-holidays' for details."
;;;###autoload ;;;###autoload
(defcustom holiday-solar-holidays (defcustom holiday-solar-holidays
(mapcar 'purecopy
'((solar-equinoxes-solstices) '((solar-equinoxes-solstices)
(holiday-sexp calendar-daylight-savings-starts (holiday-sexp calendar-daylight-savings-starts
(format "Daylight Saving Time Begins %s" (format "Daylight Saving Time Begins %s"
@ -194,7 +187,7 @@ See the documentation for `calendar-holidays' for details."
(format "Daylight Saving Time Ends %s" (format "Daylight Saving Time Ends %s"
(solar-time-string (solar-time-string
(/ calendar-daylight-savings-ends-time (float 60)) (/ calendar-daylight-savings-ends-time (float 60))
calendar-daylight-time-zone-name))))) calendar-daylight-time-zone-name))))
"Sun-related holidays. "Sun-related holidays.
See the documentation for `calendar-holidays' for details." See the documentation for `calendar-holidays' for details."
:type 'sexp) :type 'sexp)

2
lisp/comint.el
View file

@ -3234,7 +3234,7 @@ Note that this applies to `comint-dynamic-complete-filename' only."
:group 'comint-completion) :group 'comint-completion)
;;;###autoload ;;;###autoload
(defvar comint-file-name-prefix (purecopy "") (defvar comint-file-name-prefix ""
"Prefix prepended to absolute file names taken from process input. "Prefix prepended to absolute file names taken from process input.
This is used by Comint's and shell's completion functions, and by shell's This is used by Comint's and shell's completion functions, and by shell's
directory tracking functions.") directory tracking functions.")

10
lisp/composite.el
View file

@ -755,7 +755,7 @@ All non-spacing characters have this function in
;; Allow for bootstrapping without uni-*.el. ;; Allow for bootstrapping without uni-*.el.
(when unicode-category-table (when unicode-category-table
(let ((elt `([,(purecopy "\\c.\\c^+") 1 compose-gstring-for-graphic] (let ((elt `(["\\c.\\c^+" 1 compose-gstring-for-graphic]
[nil 0 compose-gstring-for-graphic]))) [nil 0 compose-gstring-for-graphic])))
(map-char-table (map-char-table
#'(lambda (key val) #'(lambda (key val)
@ -764,7 +764,7 @@ All non-spacing characters have this function in
unicode-category-table)) unicode-category-table))
;; for dotted-circle ;; for dotted-circle
(aset composition-function-table #x25CC (aset composition-function-table #x25CC
`([,(purecopy ".\\c^") 0 compose-gstring-for-dotted-circle])) `([".\\c^" 0 compose-gstring-for-dotted-circle]))
;; For prettier display of fractions ;; For prettier display of fractions
(set-char-table-range (set-char-table-range
composition-function-table composition-function-table
@ -772,10 +772,10 @@ All non-spacing characters have this function in
;; We use font-shape-gstring so that if the font doesn't support ;; We use font-shape-gstring so that if the font doesn't support
;; fractional display, the characters are shown separately, not as ;; fractional display, the characters are shown separately, not as
;; a composed cluster. ;; a composed cluster.
(list (vector (purecopy "[1-9][0-9][0-9]\u2044[0-9]+") (list (vector "[1-9][0-9][0-9]\u2044[0-9]+"
3 'font-shape-gstring) 3 'font-shape-gstring)
(vector (purecopy "[1-9][0-9]\u2044[0-9]+") 2 'font-shape-gstring) (vector "[1-9][0-9]\u2044[0-9]+" 2 'font-shape-gstring)
(vector (purecopy "[1-9]\u2044[0-9]+") 1 'font-shape-gstring)))) (vector "[1-9]\u2044[0-9]+" 1 'font-shape-gstring))))
(defun compose-gstring-for-terminal (gstring _direction) (defun compose-gstring-for-terminal (gstring _direction)
"Compose glyph-string GSTRING for terminal display. "Compose glyph-string GSTRING for terminal display.

4
lisp/cus-face.el
View file

@ -35,10 +35,10 @@
(not (documentation-stringp doc))) (not (documentation-stringp doc)))
(error "Invalid (or missing) doc string %S" doc)) (error "Invalid (or missing) doc string %S" doc))
(unless (get face 'face-defface-spec) (unless (get face 'face-defface-spec)
(face-spec-set face (purecopy spec) 'face-defface-spec) (face-spec-set face spec 'face-defface-spec)
(push (cons 'defface face) current-load-list) (push (cons 'defface face) current-load-list)
(when doc (when doc
(set-face-documentation face (purecopy doc))) (set-face-documentation face doc))
(custom-handle-all-keywords face args 'custom-face) (custom-handle-all-keywords face args 'custom-face)
(run-hooks 'custom-define-hook)) (run-hooks 'custom-define-hook))
face) face)

18
lisp/custom.el
View file

@ -166,7 +166,7 @@ not the default value itself.
DEFAULT is stored as SYMBOL's standard value, in SYMBOL's property DEFAULT is stored as SYMBOL's standard value, in SYMBOL's property
`standard-value'. At the same time, SYMBOL's property `force-value' is `standard-value'. At the same time, SYMBOL's property `force-value' is
set to nil, as the value is no longer rogue." set to nil, as the value is no longer rogue."
(put symbol 'standard-value (purecopy (list default))) (put symbol 'standard-value (list default))
;; Maybe this option was rogue in an earlier version. It no longer is. ;; Maybe this option was rogue in an earlier version. It no longer is.
(when (get symbol 'force-value) (when (get symbol 'force-value)
(put symbol 'force-value nil)) (put symbol 'force-value nil))
@ -207,7 +207,7 @@ set to nil, as the value is no longer rogue."
(when (memq value '(permanent permanent-only)) (when (memq value '(permanent permanent-only))
(put symbol 'permanent-local t))) (put symbol 'permanent-local t)))
((eq keyword :type) ((eq keyword :type)
(put symbol 'custom-type (purecopy value))) (put symbol 'custom-type value))
((eq keyword :options) ((eq keyword :options)
(if (get symbol 'custom-options) (if (get symbol 'custom-options)
;; Slow safe code to avoid duplicates. ;; Slow safe code to avoid duplicates.
@ -488,7 +488,7 @@ information."
(setq members (cdr members))) (setq members (cdr members)))
(when doc (when doc
;; This text doesn't get into DOC. ;; This text doesn't get into DOC.
(put symbol 'group-documentation (purecopy doc))) (put symbol 'group-documentation doc))
(while args (while args
(let ((arg (car args))) (let ((arg (car args)))
(setq args (cdr args)) (setq args (cdr args))
@ -500,7 +500,7 @@ information."
(error "Keyword %s is missing an argument" keyword)) (error "Keyword %s is missing an argument" keyword))
(setq args (cdr args)) (setq args (cdr args))
(cond ((eq keyword :prefix) (cond ((eq keyword :prefix)
(put symbol 'custom-prefix (purecopy value))) (put symbol 'custom-prefix value))
(t (t
(custom-handle-keyword symbol keyword value (custom-handle-keyword symbol keyword value
'custom-group)))))) 'custom-group))))))
@ -587,8 +587,6 @@ Third argument TYPE is the custom option type."
(defun custom-handle-keyword (symbol keyword value type) (defun custom-handle-keyword (symbol keyword value type)
"For customization option SYMBOL, handle KEYWORD with VALUE. "For customization option SYMBOL, handle KEYWORD with VALUE.
Fourth argument TYPE is the custom option type." Fourth argument TYPE is the custom option type."
(if purify-flag
(setq value (purecopy value)))
(cond ((eq keyword :group) (cond ((eq keyword :group)
(custom-add-to-group value symbol type)) (custom-add-to-group value symbol type))
((eq keyword :version) ((eq keyword :version)
@ -641,22 +639,22 @@ For other custom types, this has no effect."
"To the custom option SYMBOL add the link WIDGET." "To the custom option SYMBOL add the link WIDGET."
(let ((links (get symbol 'custom-links))) (let ((links (get symbol 'custom-links)))
(unless (member widget links) (unless (member widget links)
(put symbol 'custom-links (cons (purecopy widget) links))))) (put symbol 'custom-links (cons widget links)))))
(defun custom-add-version (symbol version) (defun custom-add-version (symbol version)
"To the custom option SYMBOL add the version VERSION." "To the custom option SYMBOL add the version VERSION."
(put symbol 'custom-version (purecopy version))) (put symbol 'custom-version version))
(defun custom-add-package-version (symbol version) (defun custom-add-package-version (symbol version)
"To the custom option SYMBOL add the package version VERSION." "To the custom option SYMBOL add the package version VERSION."
(put symbol 'custom-package-version (purecopy version))) (put symbol 'custom-package-version version))
(defun custom-add-load (symbol load) (defun custom-add-load (symbol load)
"To the custom option SYMBOL add the dependency LOAD. "To the custom option SYMBOL add the dependency LOAD.
LOAD should be either a library file name, or a feature name." LOAD should be either a library file name, or a feature name."
(let ((loads (get symbol 'custom-loads))) (let ((loads (get symbol 'custom-loads)))
(unless (member load loads) (unless (member load loads)
(put symbol 'custom-loads (cons (purecopy load) loads))))) (put symbol 'custom-loads (cons load loads)))))
(defun custom-autoload (symbol load &optional noset) (defun custom-autoload (symbol load &optional noset)
"Mark SYMBOL as autoloaded custom variable and add dependency LOAD. "Mark SYMBOL as autoloaded custom variable and add dependency LOAD.

2
lisp/dired.el
View file

@ -60,7 +60,7 @@
:group 'dired) :group 'dired)
;;;###autoload ;;;###autoload
(defcustom dired-listing-switches (purecopy "-al") (defcustom dired-listing-switches "-al"
"Switches passed to `ls' for Dired. MUST contain the `l' option. "Switches passed to `ls' for Dired. MUST contain the `l' option.
May contain all other options that don't contradict `-l'; May contain all other options that don't contradict `-l';
may contain even `F', `b', `i' and `s'. See also the variable may contain even `F', `b', `i' and `s'. See also the variable

2
lisp/epa-hook.el
View file

@ -35,7 +35,7 @@
(if (fboundp 'epa-file-name-regexp-update) (if (fboundp 'epa-file-name-regexp-update)
(epa-file-name-regexp-update))) (epa-file-name-regexp-update)))
(defcustom epa-file-name-regexp (purecopy "\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'") (defcustom epa-file-name-regexp "\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'"
"Regexp which matches filenames to be encrypted with GnuPG. "Regexp which matches filenames to be encrypted with GnuPG.
If you set this outside Custom while epa-file is already enabled, If you set this outside Custom while epa-file is already enabled,

39
lisp/faces.el
View file

@ -25,7 +25,7 @@
;;; Code: ;;; Code:
(defcustom term-file-prefix (purecopy "term/") (defcustom term-file-prefix "term/"
"If non-nil, Emacs startup performs terminal-specific initialization. "If non-nil, Emacs startup performs terminal-specific initialization.
It does this by: (load (concat term-file-prefix (getenv \"TERM\"))) It does this by: (load (concat term-file-prefix (getenv \"TERM\")))
@ -99,7 +99,6 @@ a font height that isn't optimal."
;; unavailable, and we fall back on the courier and helv families, ;; unavailable, and we fall back on the courier and helv families,
;; which are generally available. ;; which are generally available.
(defcustom face-font-family-alternatives (defcustom face-font-family-alternatives
(mapcar (lambda (arg) (mapcar 'purecopy arg))
'(("Monospace" "Cascadia Code" "Lucida Console" "courier" "fixed") '(("Monospace" "Cascadia Code" "Lucida Console" "courier" "fixed")
;; Monospace Serif is an Emacs invention, intended to work around ;; Monospace Serif is an Emacs invention, intended to work around
@ -137,7 +136,7 @@ a font height that isn't optimal."
;; https://en.wikipedia.org/wiki/List_of_typefaces_included_with_Microsoft_Windows ;; https://en.wikipedia.org/wiki/List_of_typefaces_included_with_Microsoft_Windows
"Calibri" "Tahoma" "Lucida Sans Unicode" "Calibri" "Tahoma" "Lucida Sans Unicode"
"helv" "helvetica" "arial" "fixed") "helv" "helvetica" "arial" "fixed")
("helv" "helvetica" "arial" "fixed"))) ("helv" "helvetica" "arial" "fixed"))
"Alist of alternative font family names. "Alist of alternative font family names.
Each element has the form (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...). Each element has the form (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...).
If fonts of family FAMILY can't be loaded, try ALTERNATIVE1, then If fonts of family FAMILY can't be loaded, try ALTERNATIVE1, then
@ -152,7 +151,6 @@ ALTERNATIVE2 etc."
;; This is defined originally in xfaces.c. ;; This is defined originally in xfaces.c.
(defcustom face-font-registry-alternatives (defcustom face-font-registry-alternatives
(mapcar (lambda (arg) (mapcar 'purecopy arg))
(if (featurep 'w32) (if (featurep 'w32)
'(("iso8859-1" "ms-oemlatin") '(("iso8859-1" "ms-oemlatin")
("gb2312.1980" "gb2312" "gbk" "gb18030") ("gb2312.1980" "gb2312" "gbk" "gb18030")
@ -162,7 +160,7 @@ ALTERNATIVE2 etc."
'(("gb2312.1980" "gb2312.80&gb8565.88" "gbk" "gb18030") '(("gb2312.1980" "gb2312.80&gb8565.88" "gbk" "gb18030")
("jisx0208.1990" "jisx0208.1983" "jisx0208.1978") ("jisx0208.1990" "jisx0208.1983" "jisx0208.1978")
("ksc5601.1989" "ksx1001.1992" "ksc5601.1987") ("ksc5601.1989" "ksx1001.1992" "ksc5601.1987")
("muletibetan-2" "muletibetan-0")))) ("muletibetan-2" "muletibetan-0")))
"Alist of alternative font registry names. "Alist of alternative font registry names.
Each element has the form (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...). Each element has the form (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...).
If fonts of registry REGISTRY can be loaded, font selection If fonts of registry REGISTRY can be loaded, font selection
@ -354,11 +352,6 @@ is either `foreground-color', `background-color', or a keyword."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defcustom face-x-resources (defcustom face-x-resources
(mapcar
(lambda (arg)
;; FIXME; can we purecopy some of the conses too?
(cons (car arg)
(cons (purecopy (car (cdr arg))) (purecopy (cdr (cdr arg))))))
'((:family (".attributeFamily" . "Face.AttributeFamily")) '((:family (".attributeFamily" . "Face.AttributeFamily"))
(:foundry (".attributeFoundry" . "Face.AttributeFoundry")) (:foundry (".attributeFoundry" . "Face.AttributeFoundry"))
(:width (".attributeWidth" . "Face.AttributeWidth")) (:width (".attributeWidth" . "Face.AttributeWidth"))
@ -381,7 +374,7 @@ is either `foreground-color', `background-color', or a keyword."
(:bold (".attributeBold" . "Face.AttributeBold")) (:bold (".attributeBold" . "Face.AttributeBold"))
(:italic (".attributeItalic" . "Face.AttributeItalic")) (:italic (".attributeItalic" . "Face.AttributeItalic"))
(:font (".attributeFont" . "Face.AttributeFont")) (:font (".attributeFont" . "Face.AttributeFont"))
(:inherit (".attributeInherit" . "Face.AttributeInherit")))) (:inherit (".attributeInherit" . "Face.AttributeInherit")))
"List of X resources and classes for face attributes. "List of X resources and classes for face attributes.
Each element has the form (ATTRIBUTE ENTRY1 ENTRY2...) where ATTRIBUTE is Each element has the form (ATTRIBUTE ENTRY1 ENTRY2...) where ATTRIBUTE is
the name of a face attribute, and each ENTRY is a cons of the form the name of a face attribute, and each ENTRY is a cons of the form
@ -664,7 +657,7 @@ If FACE is a face-alias, get the documentation for the target face."
(defun set-face-documentation (face string) (defun set-face-documentation (face string)
"Set the documentation string for FACE to STRING." "Set the documentation string for FACE to STRING."
;; Perhaps the text should go in DOC. ;; Perhaps the text should go in DOC.
(put face 'face-documentation (purecopy string))) (put face 'face-documentation string))
(define-obsolete-function-alias 'face-doc-string #'face-documentation "29.1") (define-obsolete-function-alias 'face-doc-string #'face-documentation "29.1")
@ -863,7 +856,6 @@ setting `:weight' to `bold', and a value of t for `:italic' is
equivalent to setting `:slant' to `italic'. But if `:weight' is equivalent to setting `:slant' to `italic'. But if `:weight' is
specified in the face spec, `:bold' is ignored, and if `:slant' specified in the face spec, `:bold' is ignored, and if `:slant'
is specified, `:italic' is ignored." is specified, `:italic' is ignored."
(setq args (purecopy args))
(let ((where (if (null frame) 0 frame)) (let ((where (if (null frame) 0 frame))
(spec args) (spec args)
family foundry orig-family orig-foundry) family foundry orig-family orig-foundry)
@ -893,15 +885,13 @@ is specified, `:italic' is ignored."
(setq family orig-family) (setq family orig-family)
(setq foundry orig-foundry))) (setq foundry orig-foundry)))
(when (or (stringp family) (eq family 'unspecified)) (when (or (stringp family) (eq family 'unspecified))
(internal-set-lisp-face-attribute face :family (purecopy family) (internal-set-lisp-face-attribute face :family family where))
where))
(when (or (stringp foundry) (eq foundry 'unspecified)) (when (or (stringp foundry) (eq foundry 'unspecified))
(internal-set-lisp-face-attribute face :foundry (purecopy foundry) (internal-set-lisp-face-attribute face :foundry foundry where)))
where)))
(while args (while args
(unless (memq (car args) '(:family :foundry)) (unless (memq (car args) '(:family :foundry))
(internal-set-lisp-face-attribute face (car args) (internal-set-lisp-face-attribute face (car args)
(purecopy (cadr args)) (cadr args)
where)) where))
(setq args (cddr args))))) (setq args (cddr args)))))
@ -3192,16 +3182,15 @@ This face is used by `show-paren-mode'."
(encoding "[^-]+") (encoding "[^-]+")
) )
(setq x-font-regexp (setq x-font-regexp
(purecopy (concat "\\`\\*?[-?*]" (concat "\\`\\*?[-?*]"
foundry - family - weight\? - slant\? - swidth - adstyle - foundry - family - weight\? - slant\? - swidth - adstyle -
pixelsize - pointsize - resx - resy - spacing - avgwidth - pixelsize - pointsize - resx - resy - spacing - avgwidth -
registry - encoding "\\*?\\'" registry - encoding "\\*?\\'"))
)))
(setq x-font-regexp-head (setq x-font-regexp-head
(purecopy (concat "\\`[-?*]" foundry - family - weight\? - slant\? (concat "\\`[-?*]" foundry - family - weight\? - slant\?
"\\([-*?]\\|\\'\\)"))) "\\([-*?]\\|\\'\\)"))
(setq x-font-regexp-slant (purecopy (concat - slant -))) (setq x-font-regexp-slant (concat - slant -))
(setq x-font-regexp-weight (purecopy (concat - weight -))) (setq x-font-regexp-weight (concat - weight -))
nil) nil)

2
lisp/find-file.el
View file

@ -182,7 +182,7 @@ To override this, give an argument to `ff-find-other-file'."
;;;###autoload ;;;###autoload
(defcustom ff-special-constructs (defcustom ff-special-constructs
;; C/C++ include, for NeXTstep too ;; C/C++ include, for NeXTstep too
`((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") . `(("^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" .
,(lambda () (match-string 2)))) ,(lambda () (match-string 2))))
;; We include `ff-treat-as-special' documentation here so that autoload ;; We include `ff-treat-as-special' documentation here so that autoload
;; can make it available to be read prior to loading this file. ;; can make it available to be read prior to loading this file.

27
lisp/format.el
View file

@ -65,27 +65,26 @@
(put 'buffer-auto-save-file-format 'permanent-local t) (put 'buffer-auto-save-file-format 'permanent-local t)
(defvar format-alist (defvar format-alist
;; FIXME: maybe each item can be purecopied instead of just the strings. `((text/enriched "Extended MIME text/enriched format."
`((text/enriched ,(purecopy "Extended MIME text/enriched format.") "Content-[Tt]ype:[ \t]*text/enriched"
,(purecopy "Content-[Tt]ype:[ \t]*text/enriched")
enriched-decode enriched-encode t enriched-mode) enriched-decode enriched-encode t enriched-mode)
(plain ,(purecopy "ISO 8859-1 standard format, no text properties.") (plain "ISO 8859-1 standard format, no text properties."
;; Plain only exists so that there is an obvious neutral choice in ;; Plain only exists so that there is an obvious neutral choice in
;; the completion list. ;; the completion list.
nil nil nil nil nil) nil nil nil nil nil)
(TeX ,(purecopy "TeX (encoding)") (TeX "TeX (encoding)"
nil nil
iso-tex2iso iso-iso2tex t nil) iso-tex2iso iso-iso2tex t nil)
(gtex ,(purecopy "German TeX (encoding)") (gtex "German TeX (encoding)"
nil nil
iso-gtex2iso iso-iso2gtex t nil) iso-gtex2iso iso-iso2gtex t nil)
(html ,(purecopy "HTML/SGML \"ISO 8879:1986//ENTITIES Added Latin 1//EN\" (encoding)") (html "HTML/SGML \"ISO 8879:1986//ENTITIES Added Latin 1//EN\" (encoding)"
nil nil
iso-sgml2iso iso-iso2sgml t nil) iso-sgml2iso iso-iso2sgml t nil)
(rot13 ,(purecopy "rot13") (rot13 "rot13"
nil nil
rot13-region rot13-region t nil) rot13-region rot13-region t nil)
(duden ,(purecopy "Duden Ersatzdarstellung") (duden "Duden Ersatzdarstellung"
nil nil
;; FROM-FN used to call the "diac" command which is not widely ;; FROM-FN used to call the "diac" command which is not widely
;; available and apparently not under a free software license: ;; available and apparently not under a free software license:
@ -93,14 +92,14 @@
;; Reliable round-trip conversion is not possible anyway and ;; Reliable round-trip conversion is not possible anyway and
;; would be by heuristic method, so make it write-only for now. ;; would be by heuristic method, so make it write-only for now.
iso-cvt-write-only iso-iso2duden t nil) iso-cvt-write-only iso-iso2duden t nil)
(de646 ,(purecopy "German ASCII (ISO 646)") (de646 "German ASCII (ISO 646)"
nil nil
,(purecopy "iconv -f iso646-de -t utf-8") "iconv -f iso646-de -t utf-8"
,(purecopy "iconv -f utf-8 -t iso646-de") t nil) "iconv -f utf-8 -t iso646-de" t nil)
(denet ,(purecopy "net German") (denet "net German"
nil nil
iso-german iso-cvt-read-only t nil) iso-german iso-cvt-read-only t nil)
(esnet ,(purecopy "net Spanish") (esnet "net Spanish"
nil nil
iso-spanish iso-cvt-read-only t nil)) iso-spanish iso-cvt-read-only t nil))
"List of information about understood file formats. "List of information about understood file formats.

2
lisp/help.el
View file

@ -395,7 +395,7 @@ Do not call this in the scope of `with-help-window'."
(defalias 'help #'help-for-help) (defalias 'help #'help-for-help)
(make-help-screen help-for-help (make-help-screen help-for-help
(purecopy "Type a help option: [abcCdefFgiIkKlLmnprstvw.] C-[cdefmnoptw] or ?") "Type a help option: [abcCdefFgiIkKlLmnprstvw.] C-[cdefmnoptw] or ?"
(concat (concat
"(Type " "(Type "
(help--key-description-fontified (kbd "<PageDown>")) (help--key-description-fontified (kbd "<PageDown>"))

2
lisp/image-file.el
View file

@ -37,7 +37,7 @@
;;;###autoload ;;;###autoload
(defcustom image-file-name-extensions (defcustom image-file-name-extensions
(purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg" "webp")) '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg" "webp")
"A list of image-file filename extensions. "A list of image-file filename extensions.
Filenames having one of these extensions are considered image files, Filenames having one of these extensions are considered image files,
in addition to those matching `image-file-name-regexps'. in addition to those matching `image-file-name-regexps'.

6
lisp/info.el
View file

@ -830,7 +830,7 @@ Select the window used, if it has been made."
(select-window window)))) (select-window window))))
;;;###autoload (put 'info 'info-file (purecopy "emacs")) ;;;###autoload (put 'info 'info-file "emacs")
;;;###autoload ;;;###autoload
(defun info (&optional file-or-node buffer) (defun info (&optional file-or-node buffer)
"Enter Info, the documentation browser. "Enter Info, the documentation browser.
@ -4757,7 +4757,7 @@ in the first element of the returned list (which is treated specially in
(cdr where)) (cdr where))
where))) where)))
;;;###autoload (put 'Info-goto-emacs-command-node 'info-file (purecopy "emacs")) ;;;###autoload (put 'Info-goto-emacs-command-node 'info-file "emacs")
;;;###autoload ;;;###autoload
(defun Info-goto-emacs-command-node (command) (defun Info-goto-emacs-command-node (command)
"Go to the Info node in the Emacs manual for command COMMAND. "Go to the Info node in the Emacs manual for command COMMAND.
@ -4799,7 +4799,7 @@ COMMAND must be a symbol or string."
(if (> num-matches 2) "them" "it"))))) (if (> num-matches 2) "them" "it")))))
(error "Couldn't find documentation for %s" command)))) (error "Couldn't find documentation for %s" command))))
;;;###autoload (put 'Info-goto-emacs-key-command-node 'info-file (purecopy "emacs")) ;;;###autoload (put 'Info-goto-emacs-key-command-node 'info-file "emacs")
;;;###autoload ;;;###autoload
(defun Info-goto-emacs-key-command-node (key) (defun Info-goto-emacs-key-command-node (key)
"Go to the node in the Emacs manual which describes the command bound to KEY. "Go to the node in the Emacs manual which describes the command bound to KEY.

4
lisp/isearch.el
View file

@ -115,7 +115,7 @@ is called to let you enter the search string, and RET terminates editing
and does a nonincremental search.)" and does a nonincremental search.)"
:type 'boolean) :type 'boolean)
(defcustom search-whitespace-regexp (purecopy "[ \t]+") (defcustom search-whitespace-regexp "[ \t]+"
"If non-nil, regular expression to match a sequence of whitespace chars. "If non-nil, regular expression to match a sequence of whitespace chars.
When you enter a space or spaces in the incremental search, it When you enter a space or spaces in the incremental search, it
will match any sequence matched by this regexp. As an exception, will match any sequence matched by this regexp. As an exception,
@ -497,7 +497,7 @@ this variable is nil.")
(eval-when-compile (require 'help-macro)) (eval-when-compile (require 'help-macro))
(make-help-screen isearch-help-for-help-internal (make-help-screen isearch-help-for-help-internal
(purecopy "Type a help option: [bkm] or ?") "Type a help option: [bkm] or ?"
"You have typed %THIS-KEY%, the help character. Type a Help option: "You have typed %THIS-KEY%, the help character. Type a Help option:
\(Type \\<isearch-help-map>\\[help-quit] to exit the Help command.) \(Type \\<isearch-help-map>\\[help-quit] to exit the Help command.)

38
lisp/jka-cmpr-hook.el
View file

@ -78,19 +78,18 @@ Otherwise, it is nil.")
(defun jka-compr-build-file-regexp () (defun jka-compr-build-file-regexp ()
(purecopy (let ((re-anchored '())
(let ((re-anchored '()) (re-free '()))
(re-free '())) (dolist (e jka-compr-compression-info-list)
(dolist (e jka-compr-compression-info-list) (let ((re (jka-compr-info-regexp e)))
(let ((re (jka-compr-info-regexp e))) (if (string-match "\\\\'\\'" re)
(if (string-match "\\\\'\\'" re) (push (substring re 0 (match-beginning 0)) re-anchored)
(push (substring re 0 (match-beginning 0)) re-anchored) (push re re-free))))
(push re re-free)))) (concat
(concat (if re-free (concat (mapconcat 'identity re-free "\\|") "\\|"))
(if re-free (concat (mapconcat 'identity re-free "\\|") "\\|")) "\\(?:"
"\\(?:" (mapconcat 'identity re-anchored "\\|")
(mapconcat 'identity re-anchored "\\|") "\\)" file-name-version-regexp "?\\'")))
"\\)" file-name-version-regexp "?\\'"))))
;; Functions for accessing the return value of jka-compr-get-compression-info ;; Functions for accessing the return value of jka-compr-get-compression-info
;; FIXME: Use cl-defstruct! ;; FIXME: Use cl-defstruct!
@ -202,7 +201,6 @@ options through Custom does this automatically."
;; uncomp-message uncomp-prog uncomp-args ;; uncomp-message uncomp-prog uncomp-args
;; can-append strip-extension-flag file-magic-bytes ;; can-append strip-extension-flag file-magic-bytes
;; uncompress-function] ;; uncompress-function]
(mapcar 'purecopy
`(["\\.Z\\'" `(["\\.Z\\'"
"compressing" "compress" ("-c") "compressing" "compress" ("-c")
;; gzip is more common than uncompress. It can only read, not write. ;; gzip is more common than uncompress. It can only read, not write.
@ -261,7 +259,7 @@ options through Custom does this automatically."
["\\.tzst\\'" ["\\.tzst\\'"
"zstd compressing" "zstd" ("-c" "-q") "zstd compressing" "zstd" ("-c" "-q")
"zstd uncompressing" "zstd" ("-c" "-q" "-d") "zstd uncompressing" "zstd" ("-c" "-q" "-d")
t nil "\050\265\057\375"])) t nil "\050\265\057\375"])
"List of vectors that describe available compression techniques. "List of vectors that describe available compression techniques.
Each element, which describes a compression technique, is a vector of Each element, which describes a compression technique, is a vector of
@ -329,10 +327,10 @@ variables. Setting this through Custom does that automatically."
:group 'jka-compr) :group 'jka-compr)
(defcustom jka-compr-mode-alist-additions (defcustom jka-compr-mode-alist-additions
(purecopy '(("\\.tgz\\'" . tar-mode) '(("\\.tgz\\'" . tar-mode)
("\\.tbz2?\\'" . tar-mode) ("\\.tbz2?\\'" . tar-mode)
("\\.txz\\'" . tar-mode) ("\\.txz\\'" . tar-mode)
("\\.tzst\\'" . tar-mode))) ("\\.tzst\\'" . tar-mode))
"List of pairs added to `auto-mode-alist' when installing jka-compr. "List of pairs added to `auto-mode-alist' when installing jka-compr.
Uninstalling jka-compr removes all pairs from `auto-mode-alist' that Uninstalling jka-compr removes all pairs from `auto-mode-alist' that
installing added. installing added.
@ -346,7 +344,7 @@ variables. Setting this through Custom does that automatically."
:set 'jka-compr-set :set 'jka-compr-set
:group 'jka-compr) :group 'jka-compr)
(defcustom jka-compr-load-suffixes (purecopy '(".gz")) (defcustom jka-compr-load-suffixes '(".gz")
"List of compression related suffixes to try when loading files. "List of compression related suffixes to try when loading files.
Enabling Auto Compression mode appends this list to `load-file-rep-suffixes', Enabling Auto Compression mode appends this list to `load-file-rep-suffixes',
which see. Disabling Auto Compression mode removes all suffixes which see. Disabling Auto Compression mode removes all suffixes

2
lisp/language/ethiopic.el
View file

@ -56,7 +56,7 @@
"CCL program to encode an Ethiopic code to code point of Ethiopic font.") "CCL program to encode an Ethiopic code to code point of Ethiopic font.")
(setq font-ccl-encoder-alist (setq font-ccl-encoder-alist
(cons (cons (purecopy "ethiopic") ccl-encode-ethio-font) font-ccl-encoder-alist)) (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))
(set-language-info-alist (set-language-info-alist
"Ethiopic" '((setup-function . setup-ethiopic-environment-internal) "Ethiopic" '((setup-function . setup-ethiopic-environment-internal)

6
lisp/language/korea-util.el
View file

@ -29,10 +29,10 @@
;;;###autoload ;;;###autoload
(defvar default-korean-keyboard (defvar default-korean-keyboard
(purecopy (if (string-search "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) (if (string-search "3" (or (getenv "HANGUL_KEYBOARD_TYPE") ""))
"3" "3"
"")) "")
"The kind of Korean keyboard for Korean (Hangul) input method. "The kind of Korean keyboard for Korean (Hangul) input method.
\"\" for 2, \"3\" for 3, and \"3f\" for 3f.") \"\" for 2, \"3\" for 3, and \"3f\" for 3f.")
;; functions useful for Korean text input ;; functions useful for Korean text input

14
lisp/language/tibetan.el
View file

@ -574,19 +574,17 @@ The result of matching is to be used for indexing alists at conversion
from a roman transcription to the corresponding Tibetan character.") from a roman transcription to the corresponding Tibetan character.")
(defvar tibetan-precomposed-regexp (defvar tibetan-precomposed-regexp
(purecopy (eval-when-compile
(eval-when-compile (concat "^"
(concat "^" (regexp-opt (mapcar #'car tibetan-precomposed-transcription-alist)
(regexp-opt (mapcar #'car tibetan-precomposed-transcription-alist) t)))
t))))
"Regexp string to match a romanized Tibetan complex consonant. "Regexp string to match a romanized Tibetan complex consonant.
The result of matching is to be used for indexing alists when the input key The result of matching is to be used for indexing alists when the input key
from an input method is converted to the corresponding precomposed glyph.") from an input method is converted to the corresponding precomposed glyph.")
(defvar tibetan-precomposition-rule-regexp (defvar tibetan-precomposition-rule-regexp
(purecopy (eval-when-compile
(eval-when-compile (regexp-opt (mapcar #'car tibetan-precomposition-rule-alist) t))
(regexp-opt (mapcar #'car tibetan-precomposition-rule-alist) t)))
"Regexp string to match a sequence of Tibetan consonantic components. "Regexp string to match a sequence of Tibetan consonantic components.
That is, one base consonant and one or more subjoined consonants. That is, one base consonant and one or more subjoined consonants.
The result of matching is to be used for indexing alist when the component The result of matching is to be used for indexing alist when the component

2
lisp/locate.el
View file

@ -182,7 +182,7 @@ or `locate-make-command-line', determines the database."
:type '(choice (const :tag "None" nil) face)) :type '(choice (const :tag "None" nil) face))
;;;###autoload ;;;###autoload
(defcustom locate-ls-subdir-switches (purecopy "-al") (defcustom locate-ls-subdir-switches "-al"
"`ls' switches for inserting subdirectories in `*Locate*' buffers. "`ls' switches for inserting subdirectories in `*Locate*' buffers.
This should contain the \"-l\" switch, but not the \"-F\" or \"-b\" switches." This should contain the \"-l\" switch, but not the \"-F\" or \"-b\" switches."
:type 'string :type 'string

3
lisp/lpr.el
View file

@ -94,14 +94,13 @@ This switch is used in conjunction with `printer-name'."
;;;###autoload ;;;###autoload
(defcustom lpr-command (defcustom lpr-command
(purecopy
(cond (cond
(lpr-windows-system (lpr-windows-system
"") "")
(lpr-lp-system (lpr-lp-system
"lp") "lp")
(t (t
"lpr"))) "lpr"))
"Name of program for printing a file. "Name of program for printing a file.
On MS-DOS and MS-Windows systems, if the value is an empty string then On MS-DOS and MS-Windows systems, if the value is an empty string then

14
lisp/mail/rmail.el
View file

@ -152,7 +152,7 @@ its character representation and its display representation.")
:group 'rmail) :group 'rmail)
;;;###autoload ;;;###autoload
(defcustom rmail-file-name (purecopy "~/RMAIL") (defcustom rmail-file-name "~/RMAIL"
"Name of user's primary mail file." "Name of user's primary mail file."
:type 'string :type 'string
:group 'rmail :group 'rmail
@ -160,7 +160,6 @@ its character representation and its display representation.")
;;;###autoload ;;;###autoload
(defcustom rmail-spool-directory (defcustom rmail-spool-directory
(purecopy
(cond ((file-exists-p "/var/mail") (cond ((file-exists-p "/var/mail")
;; SVR4 and recent BSD are said to use this. ;; SVR4 and recent BSD are said to use this.
;; Rather than trying to know precisely which systems use it, ;; Rather than trying to know precisely which systems use it,
@ -169,7 +168,7 @@ its character representation and its display representation.")
;; Many GNU/Linux systems use this name. ;; Many GNU/Linux systems use this name.
((file-exists-p "/var/spool/mail") "/var/spool/mail/") ((file-exists-p "/var/spool/mail") "/var/spool/mail/")
((memq system-type '(hpux usg-unix-v)) "/usr/mail/") ((memq system-type '(hpux usg-unix-v)) "/usr/mail/")
(t "/usr/spool/mail/"))) (t "/usr/spool/mail/"))
"Name of directory used by system mailer for delivering new mail. "Name of directory used by system mailer for delivering new mail.
Its name should end with a slash." Its name should end with a slash."
:initialize #'custom-initialize-delay :initialize #'custom-initialize-delay
@ -316,7 +315,6 @@ Setting this variable has an effect only before reading a mail."
;;;###autoload ;;;###autoload
(defcustom rmail-ignored-headers (defcustom rmail-ignored-headers
(purecopy
(concat "^via:\\|^mail-from:\\|^origin:\\|^references:\\|^sender:" (concat "^via:\\|^mail-from:\\|^origin:\\|^references:\\|^sender:"
"\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:" "\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:"
"\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:" "\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:"
@ -336,7 +334,7 @@ Setting this variable has an effect only before reading a mail."
"\\|^Received-SPF:" "\\|^Received-SPF:"
"\\|^Authentication-Results:" "\\|^Authentication-Results:"
"\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:" "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:"
"\\|^x-.*:")) "\\|^x-.*:")
"Regexp to match header fields that Rmail should normally hide. "Regexp to match header fields that Rmail should normally hide.
\(See also `rmail-nonignored-headers', which overrides this regexp.) \(See also `rmail-nonignored-headers', which overrides this regexp.)
This variable is used for reformatting the message header, This variable is used for reformatting the message header,
@ -385,7 +383,7 @@ If nil, display all header fields except those matched by
:version "29.1") :version "29.1")
;;;###autoload ;;;###autoload
(defcustom rmail-highlighted-headers (purecopy "^From:\\|^Subject:") (defcustom rmail-highlighted-headers "^From:\\|^Subject:"
"Regexp to match Header fields that Rmail should normally highlight. "Regexp to match Header fields that Rmail should normally highlight.
A value of nil means don't highlight. Uses the face `rmail-highlight'." A value of nil means don't highlight. Uses the face `rmail-highlight'."
:type '(choice regexp (const :tag "None" nil)) :type '(choice regexp (const :tag "None" nil))
@ -436,12 +434,12 @@ the frame where you have the RMAIL buffer displayed."
:group 'rmail-reply) :group 'rmail-reply)
;;;###autoload ;;;###autoload
(defcustom rmail-secondary-file-directory (purecopy "~/") (defcustom rmail-secondary-file-directory "~/"
"Directory for additional secondary Rmail files." "Directory for additional secondary Rmail files."
:type 'directory :type 'directory
:group 'rmail-files) :group 'rmail-files)
;;;###autoload ;;;###autoload
(defcustom rmail-secondary-file-regexp (purecopy "\\.xmail\\'") (defcustom rmail-secondary-file-regexp "\\.xmail\\'"
"Regexp for which files are secondary Rmail files." "Regexp for which files are secondary Rmail files."
:type 'regexp :type 'regexp
:group 'rmail-files) :group 'rmail-files)

10
lisp/mail/sendmail.el
View file

@ -160,7 +160,7 @@ This is used by the default mail-sending commands. See also
:version "24.1") :version "24.1")
;;;###autoload ;;;###autoload
(defcustom mail-header-separator (purecopy "--text follows this line--") (defcustom mail-header-separator "--text follows this line--"
"Line used to separate headers from text in messages being composed." "Line used to separate headers from text in messages being composed."
:type 'string) :type 'string)
@ -201,7 +201,7 @@ The default file is defined in sendmail's configuration file, e.g.
:type '(choice (const :tag "Sendmail default" nil) file)) :type '(choice (const :tag "Sendmail default" nil) file))
;;;###autoload ;;;###autoload
(defcustom mail-personal-alias-file (purecopy "~/.mailrc") (defcustom mail-personal-alias-file "~/.mailrc"
"If non-nil, the name of the user's personal mail alias file. "If non-nil, the name of the user's personal mail alias file.
This file typically should be in same format as the `.mailrc' file used by This file typically should be in same format as the `.mailrc' file used by
the `Mail' or `mailx' program. the `Mail' or `mailx' program.
@ -258,7 +258,7 @@ regardless of what part of it (if any) is included in the cited text.")
;;;###autoload ;;;###autoload
(defcustom mail-citation-prefix-regexp (defcustom mail-citation-prefix-regexp
(purecopy "\\([ \t]*\\(\\w\\|[_.]\\)+>+\\|[ \t]*[>|]\\)+") "\\([ \t]*\\(\\w\\|[_.]\\)+>+\\|[ \t]*[>|]\\)+"
"Regular expression to match a citation prefix plus whitespace. "Regular expression to match a citation prefix plus whitespace.
It should match whatever sort of citation prefixes you want to handle, It should match whatever sort of citation prefixes you want to handle,
with whitespace before and after; it should also match just whitespace. with whitespace before and after; it should also match just whitespace.
@ -377,12 +377,12 @@ and should insert whatever you want to insert."
:risky t) :risky t)
;;;###autoload ;;;###autoload
(defcustom mail-signature-file (purecopy "~/.signature") (defcustom mail-signature-file "~/.signature"
"File containing the text inserted at end of mail buffer." "File containing the text inserted at end of mail buffer."
:type 'file) :type 'file)
;;;###autoload ;;;###autoload
(defcustom mail-default-directory (purecopy "~/") (defcustom mail-default-directory "~/"
"Value of `default-directory' for Mail mode buffers. "Value of `default-directory' for Mail mode buffers.
This directory is used for auto-save files of Mail mode buffers. This directory is used for auto-save files of Mail mode buffers.

4
lisp/menu-bar.el
View file

@ -488,7 +488,7 @@ in the tool bar will close the current window where possible."
(or (not (boundp 'xref-backend-functions)) (or (not (boundp 'xref-backend-functions))
(eq (car xref-backend-functions) 'etags--xref-backend))) (eq (car xref-backend-functions) 'etags--xref-backend)))
(defvar yank-menu (cons (purecopy "Select Yank") nil)) (defvar yank-menu '("Select Yank" nil))
(fset 'yank-menu (cons 'keymap yank-menu)) (fset 'yank-menu (cons 'keymap yank-menu))
(defvar menu-bar-edit-menu (defvar menu-bar-edit-menu
@ -2211,7 +2211,7 @@ key, a click, or a menu-item"))
(define-key global-map [menu-bar file] (define-key global-map [menu-bar file]
(cons "File" menu-bar-file-menu)) (cons "File" menu-bar-file-menu))
(define-key global-map [menu-bar help-menu] (define-key global-map [menu-bar help-menu]
(cons (purecopy "Help") menu-bar-help-menu)) (cons "Help" menu-bar-help-menu))
(define-key global-map [menu-bar mouse-1] 'menu-bar-open-mouse) (define-key global-map [menu-bar mouse-1] 'menu-bar-open-mouse)

24
lisp/net/eudc.el
View file

@ -1319,25 +1319,25 @@ This does nothing except loading eudc by autoload side-effect."
(defvar eudc-tools-menu (defvar eudc-tools-menu
(let ((map (make-sparse-keymap "Directory Servers"))) (let ((map (make-sparse-keymap "Directory Servers")))
(define-key map [phone] (define-key map [phone]
`(menu-item ,(purecopy "Get Phone") eudc-get-phone '(menu-item "Get Phone" eudc-get-phone
:help ,(purecopy "Get the phone field of name from the directory server"))) :help "Get the phone field of name from the directory server"))
(define-key map [email] (define-key map [email]
`(menu-item ,(purecopy "Get Email") eudc-get-email '(menu-item "Get Email" eudc-get-email
:help ,(purecopy "Get the email field of NAME from the directory server"))) :help "Get the email field of NAME from the directory server"))
(define-key map [separator-eudc-email] menu-bar-separator) (define-key map [separator-eudc-email] menu-bar-separator)
(define-key map [expand-inline] (define-key map [expand-inline]
`(menu-item ,(purecopy "Expand Inline Query") eudc-expand-inline '(menu-item "Expand Inline Query" eudc-expand-inline
:help ,(purecopy "Query the directory server, and expand the query string before point"))) :help "Query the directory server, and expand the query string before point"))
(define-key map [query] (define-key map [query]
`(menu-item ,(purecopy "Query with Form") eudc-query-form '(menu-item "Query with Form" eudc-query-form
:help ,(purecopy "Display a form to query the directory server"))) :help "Display a form to query the directory server"))
(define-key map [separator-eudc-query] menu-bar-separator) (define-key map [separator-eudc-query] menu-bar-separator)
(define-key map [new] (define-key map [new]
`(menu-item ,(purecopy "New Server") eudc-set-server '(menu-item "New Server" eudc-set-server
:help ,(purecopy "Set the directory server to SERVER using PROTOCOL"))) :help "Set the directory server to SERVER using PROTOCOL"))
(define-key map [load] (define-key map [load]
`(menu-item ,(purecopy "Load Hotlist of Servers") eudc-load-eudc '(menu-item "Load Hotlist of Servers" eudc-load-eudc
:help ,(purecopy "Load the Emacs Unified Directory Client"))) :help "Load the Emacs Unified Directory Client"))
map)) map))
(fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu))) (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu)))

4
lisp/newcomment.el
View file

@ -136,7 +136,7 @@ by the close of the first pair.")
(put 'comment-end-skip 'safe-local-variable 'stringp) (put 'comment-end-skip 'safe-local-variable 'stringp)
;;;###autoload ;;;###autoload
(defvar comment-end (purecopy "") (defvar comment-end ""
"String to insert to end a new comment. "String to insert to end a new comment.
Should be an empty string if comments are terminated by end-of-line.") Should be an empty string if comments are terminated by end-of-line.")
;;;###autoload ;;;###autoload
@ -288,7 +288,7 @@ See `comment-styles' for a list of available styles."
:group 'comment) :group 'comment)
;;;###autoload ;;;###autoload
(defcustom comment-padding (purecopy " ") (defcustom comment-padding " "
"Padding string that `comment-region' puts between comment chars and text. "Padding string that `comment-region' puts between comment chars and text.
Can also be an integer which will be automatically turned into a string Can also be an integer which will be automatically turned into a string
of the corresponding number of spaces. of the corresponding number of spaces.

3
lisp/obsolete/autoload.el
View file

@ -415,8 +415,7 @@ FILE's modification time."
load-name outfile)) load-name outfile))
(let ((standard-output (marker-buffer output-start)) (let ((standard-output (marker-buffer output-start))
(print-quoted t)) (print-quoted t))
(princ `(push (purecopy (princ `(push ',(cons (intern package) version)
',(cons (intern package) version))
package--builtin-versions)) package--builtin-versions))
(princ "\n"))))) (princ "\n")))))

3
lisp/progmodes/hideshow.el
View file

@ -257,7 +257,6 @@ This has effect only if `search-invisible' is set to `open'."
;; FIXME: Currently the check is made via ;; FIXME: Currently the check is made via
;; (assoc major-mode hs-special-modes-alist) so it doesn't pay attention ;; (assoc major-mode hs-special-modes-alist) so it doesn't pay attention
;; to the mode hierarchy. ;; to the mode hierarchy.
(mapcar #'purecopy
'((c-mode "{" "}" "/[*/]" nil nil) '((c-mode "{" "}" "/[*/]" nil nil)
(c-ts-mode "{" "}" "/[*/]" nil nil) (c-ts-mode "{" "}" "/[*/]" nil nil)
(c++-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil)
@ -270,7 +269,7 @@ This has effect only if `search-invisible' is set to `open'."
(lua-ts-mode "{\\|\\[\\[" "}\\|\\]\\]" "--" nil) (lua-ts-mode "{\\|\\[\\[" "}\\|\\]\\]" "--" nil)
(mhtml-mode "{\\|<[^/>]*?" "}\\|</[^/>]*[^/]>" "<!--" mhtml-forward nil) (mhtml-mode "{\\|<[^/>]*?" "}\\|</[^/>]*[^/]>" "<!--" mhtml-forward nil)
;; Add more support here. ;; Add more support here.
)) )
"Alist for initializing the hideshow variables for different modes. "Alist for initializing the hideshow variables for different modes.
Each element has the form Each element has the form
(MODE START END COMMENT-START FORWARD-SEXP-FUNC ADJUST-BEG-FUNC (MODE START END COMMENT-START FORWARD-SEXP-FUNC ADJUST-BEG-FUNC

75
lisp/ps-print.el
View file

@ -1785,44 +1785,43 @@ If it's nil, automatic feeding takes place."
;;;###autoload ;;;###autoload
(defcustom ps-page-dimensions-database (defcustom ps-page-dimensions-database
(purecopy (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4")
(list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3")
(list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter")
(list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal")
(list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall")
(list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid")
(list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger")
(list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement")
(list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive")
(list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small")
(list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4")
(list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5")
(list 'b5 (* 72 7.16) (* 72 10.125) "B5") ;; page sizes for label printer
;; page sizes for label printer ;; NOTE: the page sizes below don't have n-up > 1.
;; NOTE: the page sizes below don't have n-up > 1. '(addresslarge 236.0 99.0 "AddressLarge")
'(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall")
'(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13")
'(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15")
'(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette")
'(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder")
'(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow")
'(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide")
'(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge")
'(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge")
'(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder")
'(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry")
'(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge")
'(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose")
'(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel")
'(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping")
'(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm")
'(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm")
'(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper")
'(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150")
'(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace")
'(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine")
'(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk"))
'(zipdisk 156.0 136.0 "ZipDisk")))
"List associating a symbolic paper type to its width, height and doc media. "List associating a symbolic paper type to its width, height and doc media.
See `ps-paper-type'." See `ps-paper-type'."
:type '(repeat (list :tag "Paper Type" :type '(repeat (list :tag "Paper Type"

2
lisp/rfn-eshadow.el
View file

@ -102,7 +102,7 @@ If Emacs is not running under a window system,
:version "22.1") :version "22.1")
(defcustom file-name-shadow-tty-properties (defcustom file-name-shadow-tty-properties
(purecopy '(before-string "{" after-string "} " field shadow)) '(before-string "{" after-string "} " field shadow)
"Properties given to the `shadowed' part of a filename in the minibuffer. "Properties given to the `shadowed' part of a filename in the minibuffer.
Only used when `file-name-shadow-mode' is active and Emacs Only used when `file-name-shadow-mode' is active and Emacs
is not running under a window-system; if Emacs is running under a window is not running under a window-system; if Emacs is running under a window

2
lisp/shell.el
View file

@ -113,7 +113,7 @@
:group 'shell) :group 'shell)
;;;###autoload ;;;###autoload
(defcustom shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") (defcustom shell-dumb-shell-regexp "cmd\\(proxy\\)?\\.exe"
"Regexp to match shells that don't save their command history, and "Regexp to match shells that don't save their command history, and
don't handle the backslash as a quote character. For shells that don't handle the backslash as a quote character. For shells that
match this regexp, Emacs will write out the command history when the match this regexp, Emacs will write out the command history when the

10
lisp/simple.el
View file

@ -177,7 +177,7 @@ changes."
(defvar next-error-highlight-timer nil) (defvar next-error-highlight-timer nil)
(defvar next-error-overlay-arrow-position nil) (defvar next-error-overlay-arrow-position nil)
(put 'next-error-overlay-arrow-position 'overlay-arrow-string (purecopy "=>")) (put 'next-error-overlay-arrow-position 'overlay-arrow-string "=>")
(add-to-list 'overlay-arrow-variable-list 'next-error-overlay-arrow-position) (add-to-list 'overlay-arrow-variable-list 'next-error-overlay-arrow-position)
(defvar next-error-last-buffer nil (defvar next-error-last-buffer nil
@ -4271,7 +4271,7 @@ which is defined in the `warnings' library.\n")
Maximum length of the history list is determined by the value Maximum length of the history list is determined by the value
of `history-length', which see.") of `history-length', which see.")
(defvar shell-command-switch (purecopy "-c") (defvar shell-command-switch "-c"
"Switch used to have the shell execute its command line argument.") "Switch used to have the shell execute its command line argument.")
(defvar shell-command-default-error-buffer nil (defvar shell-command-default-error-buffer nil
@ -6948,7 +6948,7 @@ START and END specify the portion of the current buffer to be copied."
(save-excursion (save-excursion
(insert-buffer-substring oldbuf start end))))) (insert-buffer-substring oldbuf start end)))))
(define-error 'mark-inactive (purecopy "The mark is not active now")) (define-error 'mark-inactive "The mark is not active now")
(defvar activate-mark-hook nil (defvar activate-mark-hook nil
"Hook run when the mark becomes active. "Hook run when the mark becomes active.
@ -9264,9 +9264,9 @@ if long lines are truncated."
(message "Word wrapping %s" (message "Word wrapping %s"
(if word-wrap "enabled" "disabled"))) (if word-wrap "enabled" "disabled")))
(defvar overwrite-mode-textual (purecopy " Ovwrt") (defvar overwrite-mode-textual " Ovwrt"
"The string displayed in the mode line when in overwrite mode.") "The string displayed in the mode line when in overwrite mode.")
(defvar overwrite-mode-binary (purecopy " Bin Ovwrt") (defvar overwrite-mode-binary " Bin Ovwrt"
"The string displayed in the mode line when in binary overwrite mode.") "The string displayed in the mode line when in binary overwrite mode.")
(define-minor-mode overwrite-mode (define-minor-mode overwrite-mode

4
lisp/subr.el
View file

@ -5965,7 +5965,7 @@ See also `with-eval-after-load'."
;; evaluating it now). ;; evaluating it now).
(let* ((regexp-or-feature (let* ((regexp-or-feature
(if (stringp file) (if (stringp file)
(setq file (purecopy (load-history-regexp file))) (setq file (load-history-regexp file))
file)) file))
(elt (assoc regexp-or-feature after-load-alist)) (elt (assoc regexp-or-feature after-load-alist))
(func (func
@ -7131,7 +7131,7 @@ Also, \"-GIT\", \"-CVS\" and \"-NNN\" are treated as snapshot versions."
(defvar package--builtin-versions (defvar package--builtin-versions
;; Mostly populated by loaddefs.el. ;; Mostly populated by loaddefs.el.
(purecopy `((emacs . ,(version-to-list emacs-version)))) `((emacs . ,(version-to-list emacs-version)))
"Alist giving the version of each versioned builtin package. "Alist giving the version of each versioned builtin package.
I.e. each element of the list is of the form (NAME . VERSION) where I.e. each element of the list is of the form (NAME . VERSION) where
NAME is the package name as a symbol, and VERSION is its version NAME is the package name as a symbol, and VERSION is its version

2
lisp/tab-bar.el
View file

@ -533,7 +533,7 @@ appropriate."
"<touchscreen-begin>" #'tab-bar-touchscreen-begin) "<touchscreen-begin>" #'tab-bar-touchscreen-begin)
(global-set-key [tab-bar] (global-set-key [tab-bar]
`(menu-item ,(purecopy "tab bar") ,(make-sparse-keymap) `(menu-item "tab bar" ,(make-sparse-keymap)
:filter tab-bar-make-keymap)) :filter tab-bar-make-keymap))
(defun tab-bar-make-keymap (&optional _ignore) (defun tab-bar-make-keymap (&optional _ignore)

4
lisp/term/pgtk-win.el
View file

@ -186,8 +186,6 @@ EVENT is a `preedit-text' event."
(add-hook 'after-init-hook #'pgtk-use-im-context-handler) (add-hook 'after-init-hook #'pgtk-use-im-context-handler)
(defcustom x-gtk-stock-map (defcustom x-gtk-stock-map
(mapcar (lambda (arg)
(cons (purecopy (car arg)) (purecopy (cdr arg))))
'( '(
("etc/images/new" . ("document-new" "gtk-new")) ("etc/images/new" . ("document-new" "gtk-new"))
("etc/images/open" . ("document-open" "gtk-open")) ("etc/images/open" . ("document-open" "gtk-open"))
@ -253,7 +251,7 @@ EVENT is a `preedit-text' event."
;; No themed versions available: ;; No themed versions available:
;; mail/preview (combining stock_mail and stock_zoom) ;; mail/preview (combining stock_mail and stock_zoom)
;; mail/save (combining stock_mail, stock_save and stock_convert) ;; mail/save (combining stock_mail, stock_save and stock_convert)
)) )
"How icons for tool bars are mapped to Gtk+ stock items. "How icons for tool bars are mapped to Gtk+ stock items.
Emacs must be compiled with the Gtk+ toolkit for this to have any effect. Emacs must be compiled with the Gtk+ toolkit for this to have any effect.
A value that begins with n: denotes a named icon instead of a stock icon." A value that begins with n: denotes a named icon instead of a stock icon."

4
lisp/term/x-win.el
View file

@ -1375,8 +1375,6 @@ This returns an error if any Emacs frames are X frames."
(define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event) (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
(defcustom x-gtk-stock-map (defcustom x-gtk-stock-map
(mapcar (lambda (arg)
(cons (purecopy (car arg)) (purecopy (cdr arg))))
'( '(
("etc/images/new" . ("document-new" "gtk-new")) ("etc/images/new" . ("document-new" "gtk-new"))
("etc/images/open" . ("document-open" "gtk-open")) ("etc/images/open" . ("document-open" "gtk-open"))
@ -1442,7 +1440,7 @@ This returns an error if any Emacs frames are X frames."
;; No themed versions available: ;; No themed versions available:
;; mail/preview (combining stock_mail and stock_zoom) ;; mail/preview (combining stock_mail and stock_zoom)
;; mail/save (combining stock_mail, stock_save and stock_convert) ;; mail/save (combining stock_mail, stock_save and stock_convert)
)) )
"How icons for tool bars are mapped to Gtk+ stock items. "How icons for tool bars are mapped to Gtk+ stock items.
Emacs must be compiled with the Gtk+ toolkit for this to have any effect. Emacs must be compiled with the Gtk+ toolkit for this to have any effect.
A value that begins with n: denotes a named icon instead of a stock icon." A value that begins with n: denotes a named icon instead of a stock icon."

4
lisp/tool-bar.el
View file

@ -92,8 +92,8 @@ parameter is set to `top', and above the tool bar it is set to
`bottom'.") `bottom'.")
(global-set-key [tool-bar] (global-set-key [tool-bar]
`(menu-item ,(purecopy "tool bar") ignore '(menu-item "tool bar" ignore
:filter tool-bar-make-keymap)) :filter tool-bar-make-keymap))
(declare-function image-mask-p "image.c" (spec &optional frame)) (declare-function image-mask-p "image.c" (spec &optional frame))

2
lisp/widget.el
View file

@ -88,7 +88,7 @@ The third argument DOC is a documentation string for the widget."
(unless (or (null doc) (stringp doc)) (unless (or (null doc) (stringp doc))
(error "Widget documentation must be nil or a string")) (error "Widget documentation must be nil or a string"))
(put name 'widget-type (cons class args)) (put name 'widget-type (cons class args))
(put name 'widget-documentation (purecopy doc)) (put name 'widget-documentation doc)
name) name)
(define-obsolete-function-alias 'widget-plist-member #'plist-member "26.1") (define-obsolete-function-alias 'widget-plist-member #'plist-member "26.1")