mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Remove stray quotes

Browse Source 
* lisp/emacs-lisp/bytecomp.el (byte-compile-form):
* lisp/help-fns.el (help-fns--interactive-only): Fix obvious mistake.
Since `interactive-only` is not supposed to be anything other than
a symbol at these points it was not a very consequential bug.
This commit is contained in:
Mattias Engdegård 2023-02-21 16:13:36 +01:00
parent 098add06eb
commit 450be633bb
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/bytecomp.el
View File

@ -3443,7 +3443,7 @@ lambda-expression."
(format "; %s" (format "; %s"
(substitute-command-keys (substitute-command-keys
interactive-only))) interactive-only)))
((and (symbolp 'interactive-only) ((and (symbolp interactive-only)
(not (eq interactive-only t))) (not (eq interactive-only t)))
(format-message "; use `%s' instead." (format-message "; use `%s' instead."
interactive-only)) interactive-only))

2
lisp/help-fns.el
View File

@ -778,7 +778,7 @@ the C sources, too."
;; Cf byte-compile-form. ;; Cf byte-compile-form.
(cond ((stringp interactive-only) (cond ((stringp interactive-only)
(format ";\n in Lisp code %s" interactive-only)) (format ";\n in Lisp code %s" interactive-only))
((and (symbolp 'interactive-only) ((and (symbolp interactive-only)
(not (eq interactive-only t))) (not (eq interactive-only t)))
(format-message ";\n in Lisp code use `%s' instead." (format-message ";\n in Lisp code use `%s' instead."
interactive-only)) interactive-only))