From 450be633bb54054657b2474a9711977bdc9bd574 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Tue, 21 Feb 2023 16:13:36 +0100 Subject: [PATCH] Remove stray quotes * 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. --- lisp/emacs-lisp/bytecomp.el | 2 +- lisp/help-fns.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b1410fc2646..b0c9667dc19 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3443,7 +3443,7 @@ lambda-expression." (format "; %s" (substitute-command-keys interactive-only))) - ((and (symbolp 'interactive-only) + ((and (symbolp interactive-only) (not (eq interactive-only t))) (format-message "; use `%s' instead." interactive-only)) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 84266e02901..50e60b68e17 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -778,7 +778,7 @@ the C sources, too." ;; Cf byte-compile-form. (cond ((stringp interactive-only) (format ";\n in Lisp code %s" interactive-only)) - ((and (symbolp 'interactive-only) + ((and (symbolp interactive-only) (not (eq interactive-only t))) (format-message ";\n in Lisp code use `%s' instead." interactive-only)) -- 2.39.2