procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't call purecopy in help-mode.el

Browse source 
* lisp/help-mode.el (help-function, help-variable, help-type)
(help-face, help-coding-system, help-input-method)
(help-character-set, help-symbol, help-back, help-forward)
(help-info-variable, help-info, help-man)
(help-customization-group, help-url, help-customize-variable)
(help-customize-face, help-function-def, help-function-cmacro)
(help-variable-def, help-face-def, help-package)
(help-package-def, help-theme-def, help-theme-edit)
(help-dir-local-var-def, help-news, help-back-label)
(help-forward-label, help-xref-symbol-regexp)
(help-xref-info-regexp, help-xref-man-regexp)
(help-xref-customization-group-regexp, help-xref-url-regexp):
Remove calls to purecopy.
This commit is contained in:
Stefan Kangas 2024-12-09 20:40:56 +01:00
parent e44b1bf5cc
commit 065b6f2fa7
1 changed files with 43 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

88
lisp/help-mode.el
View file

@ -170,92 +170,92 @@ The format is (FUNCTION ARGS...).")
(define-button-type 'help-function
:supertype 'help-xref
'help-function 'describe-function
'help-echo (purecopy "mouse-2, RET: describe this function"))
'help-echo "mouse-2, RET: describe this function")
(define-button-type 'help-variable
:supertype 'help-xref
'help-function 'describe-variable
'help-echo (purecopy "mouse-2, RET: describe this variable"))
'help-echo "mouse-2, RET: describe this variable")
(define-button-type 'help-type
:supertype 'help-xref
'help-function #'cl-describe-type
'help-echo (purecopy "mouse-2, RET: describe this type"))
'help-echo "mouse-2, RET: describe this type")
(define-button-type 'help-face
:supertype 'help-xref
'help-function 'describe-face
'help-echo (purecopy "mouse-2, RET: describe this face"))
'help-echo "mouse-2, RET: describe this face")
(define-button-type 'help-coding-system
:supertype 'help-xref
'help-function 'describe-coding-system
'help-echo (purecopy "mouse-2, RET: describe this coding system"))
'help-echo "mouse-2, RET: describe this coding system")
(define-button-type 'help-input-method
:supertype 'help-xref
'help-function 'describe-input-method
'help-echo (purecopy "mouse-2, RET: describe this input method"))
'help-echo "mouse-2, RET: describe this input method")
(define-button-type 'help-character-set
:supertype 'help-xref
'help-function 'describe-character-set
'help-echo (purecopy "mouse-2, RET: describe this character set"))
'help-echo "mouse-2, RET: describe this character set")
;; Make some more idiosyncratic button types.
(define-button-type 'help-symbol
:supertype 'help-xref
'help-function #'describe-symbol
'help-echo (purecopy "mouse-2, RET: describe this symbol"))
'help-echo "mouse-2, RET: describe this symbol")
(define-button-type 'help-back
:supertype 'help-xref
'help-function #'help-xref-go-back
'help-echo (purecopy "mouse-2, RET: go back to previous help buffer"))
'help-echo "mouse-2, RET: go back to previous help buffer")
(define-button-type 'help-forward
:supertype 'help-xref
'help-function #'help-xref-go-forward
'help-echo (purecopy "mouse-2, RET: move forward to next help buffer"))
'help-echo "mouse-2, RET: move forward to next help buffer")
(define-button-type 'help-info-variable
:supertype 'help-xref
;; the name of the variable is put before the argument to Info
'help-function (lambda (_a v) (info v))
'help-echo (purecopy "mouse-2, RET: read this Info node"))
'help-echo "mouse-2, RET: read this Info node")
(define-button-type 'help-info
:supertype 'help-xref
'help-function #'info
'help-echo (purecopy "mouse-2, RET: read this Info node"))
'help-echo "mouse-2, RET: read this Info node")
(define-button-type 'help-man
:supertype 'help-xref
'help-function #'man
'help-echo (purecopy "mouse-2, RET: read this man page"))
'help-echo "mouse-2, RET: read this man page")
(define-button-type 'help-customization-group
:supertype 'help-xref
'help-function #'customize-group
'help-echo (purecopy "mouse-2, RET: display this customization group"))
'help-echo "mouse-2, RET: display this customization group")
(define-button-type 'help-url
:supertype 'help-xref
'help-function #'browse-url
'help-echo (purecopy "mouse-2, RET: view this URL in a browser"))
'help-echo "mouse-2, RET: view this URL in a browser")
(define-button-type 'help-customize-variable
:supertype 'help-xref
'help-function (lambda (v)
(customize-variable v))
'help-echo (purecopy "mouse-2, RET: customize variable"))
(customize-variable v))
'help-echo "mouse-2, RET: customize variable")
(define-button-type 'help-customize-face
:supertype 'help-xref
'help-function (lambda (v)
(customize-face v))
'help-echo (purecopy "mouse-2, RET: customize face"))
(customize-face v))
'help-echo "mouse-2, RET: customize face")
(defun help-function-def--button-function (fun &optional file type)
(or file
@ -293,7 +293,7 @@ The format is (FUNCTION ARGS...).")
(define-button-type 'help-function-def
:supertype 'help-xref
'help-function #'help-function-def--button-function
'help-echo (purecopy "mouse-2, RET: find function's definition"))
'help-echo "mouse-2, RET: find function's definition")
(define-button-type 'help-function-cmacro ; FIXME: Obsolete since 24.4.
:supertype 'help-xref
@ -314,7 +314,7 @@ The format is (FUNCTION ARGS...).")
(forward-line 0)
(message "Unable to find location in file")))
(message "Unable to find file")))
'help-echo (purecopy "mouse-2, RET: find function's compiler macro"))
'help-echo "mouse-2, RET: find function's compiler macro")
(define-button-type 'help-variable-def
:supertype 'help-xref
@ -335,7 +335,7 @@ The format is (FUNCTION ARGS...).")
(widen))
(goto-char position))
(message "Unable to find location in file"))))
'help-echo (purecopy "mouse-2, RET: find variable's definition"))
'help-echo "mouse-2, RET: find variable's definition")
(define-button-type 'help-face-def
:supertype 'help-xref
@ -357,27 +357,27 @@ The format is (FUNCTION ARGS...).")
(widen))
(goto-char position))
(message "Unable to find location in file"))))
'help-echo (purecopy "mouse-2, RET: find face's definition"))
'help-echo "mouse-2, RET: find face's definition")
(define-button-type 'help-package
:supertype 'help-xref
'help-function 'describe-package
'help-echo (purecopy "mouse-2, RET: Describe package"))
'help-echo "mouse-2, RET: Describe package")
(define-button-type 'help-package-def
:supertype 'help-xref
'help-function (lambda (file) (dired file))
'help-echo (purecopy "mouse-2, RET: visit package directory"))
'help-echo "mouse-2, RET: visit package directory")
(define-button-type 'help-theme-def
:supertype 'help-xref
'help-function #'find-file
'help-echo (purecopy "mouse-2, RET: visit theme file"))
'help-echo "mouse-2, RET: visit theme file")
(define-button-type 'help-theme-edit
:supertype 'help-xref
'help-function #'customize-create-theme
'help-echo (purecopy "mouse-2, RET: edit this theme file"))
'help-echo "mouse-2, RET: edit this theme file")
(define-button-type 'help-dir-local-var-def
:supertype 'help-xref
@ -385,7 +385,7 @@ The format is (FUNCTION ARGS...).")
;; FIXME: this should go to the point where the
;; local variable was defined.
(find-file file))
'help-echo (purecopy "mouse-2, RET: open directory-local variables file"))
'help-echo "mouse-2, RET: open directory-local variables file")
(define-button-type 'help-news
:supertype 'help-xref
'help-function
@ -394,7 +394,7 @@ The format is (FUNCTION ARGS...).")
(view-file file)
(view-file-other-window file))
(goto-char pos))
'help-echo (purecopy "mouse-2, RET: show corresponding NEWS announcement"))
'help-echo "mouse-2, RET: show corresponding NEWS announcement")
;;;###autoload
(defun help-mode--add-function-link (str fun)
@ -446,21 +446,21 @@ Commands:
;; similar should be done for widget doc strings, which currently use
;; another mechanism.
(defvar help-back-label (purecopy "[back]")
(defvar help-back-label "[back]"
"Label to use by `help-make-xrefs' for the go-back reference.")
(defvar help-forward-label (purecopy "[forward]")
(defvar help-forward-label "[forward]"
"Label to use by `help-make-xrefs' for the go-forward reference.")
(defconst help-xref-symbol-regexp
(purecopy (concat "\\(\\<\\(\\(variable\\|option\\)\\|" ; Link to var
"\\(function\\|command\\|call\\)\\|" ; Link to function
"\\(face\\)\\|" ; Link to face
"\\(symbol\\|program\\|property\\)\\|" ; Don't link
"\\(source \\(?:code \\)?\\(?:of\\|for\\)\\)\\)"
"[ \t\n]+\\)?"
"\\(\\\\\\+\\)?"
"['`‘]\\(\\(?:\\sw\\|\\s_\\)+\\|`\\)['’]"))
(concat "\\(\\<\\(\\(variable\\|option\\)\\|" ; Link to var
"\\(function\\|command\\|call\\)\\|" ; Link to function
"\\(face\\)\\|" ; Link to face
"\\(symbol\\|program\\|property\\)\\|" ; Don't link
"\\(source \\(?:code \\)?\\(?:of\\|for\\)\\)\\)"
"[ \t\n]+\\)?"
"\\(\\\\\\+\\)?"
"['`‘]\\(\\(?:\\sw\\|\\s_\\)+\\|`\\)['’]")
"Regexp matching doc string references to symbols.
The words preceding the quoted symbol can be used in doc strings to
@ -475,21 +475,19 @@ when help commands related to multilingual environment (e.g.,
(defconst help-xref-info-regexp
(purecopy
"\\<[Ii]nfo[ \t\n]+\\(node\\|anchor\\)[ \t\n]+['`‘]\\([^'’]+\\)['’]")
"\\<[Ii]nfo[ \t\n]+\\(node\\|anchor\\)[ \t\n]+['`‘]\\([^'’]+\\)['’]"
"Regexp matching doc string references to an Info node.")
(defconst help-xref-man-regexp
(purecopy
"\\<[Mm]an[ \t\n]+page[ \t\n]+\\(?:for[ \t\n]+\\)?['`‘\"]\\([^'’\"]+\\)['’\"]")
"\\<[Mm]an[ \t\n]+page[ \t\n]+\\(?:for[ \t\n]+\\)?['`‘\"]\\([^'’\"]+\\)['’\"]"
"Regexp matching doc string references to a man page.")
(defconst help-xref-customization-group-regexp
(purecopy "\\<[Cc]ustomization[ \t\n]+[Gg]roup[ \t\n]+['`‘]\\([^'’]+\\)['’]")
"\\<[Cc]ustomization[ \t\n]+[Gg]roup[ \t\n]+['`‘]\\([^'’]+\\)['’]"
"Regexp matching doc string references to a customization group.")
(defconst help-xref-url-regexp
(purecopy "\\<[Uu][Rr][Ll][ \t\n]+['`‘]\\([^'’]+\\)['’]")
"\\<[Uu][Rr][Ll][ \t\n]+['`‘]\\([^'’]+\\)['’]"
"Regexp matching doc string references to a URL.")
;;;###autoload