[elpa] externals/hyperbole b8687ce867 1/7: Remove # function quoting from derived-mode-p argument

[ELPA Syncer]

branch: externals/hyperbole
commit b8687ce867faee05ba540b908dc3fc4dfe534427
Author: bw <rsw@gnu.org>
Commit: bw <rsw@gnu.org>

    Remove # function quoting from derived-mode-p argument
---
 hmouse-tag.el       | 6 +++---
 hui.el              | 4 ++--
 kotl/klink.el       | 6 +++---
 kotl/kotl-orgtbl.el | 4 ++--
 4 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/hmouse-tag.el b/hmouse-tag.el
index 6fb7d3ffe6..c44cdc917c 100644
--- a/hmouse-tag.el
+++ b/hmouse-tag.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    24-Aug-91
-;; Last-Mod:     22-Jun-24 at 22:58:03 by Mats Lidell
+;; Last-Mod:     14-Jul-24 at 11:55:33 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -859,9 +859,9 @@ on the first line of a non-alias Lisp definition."
 
 ;;;###autoload
 (defun smart-lisp-mode-p ()
-  "Return t if in a mode which use Lisp symbols."
+  "Return t if in a mode which uses Lisp symbols."
   (or (smart-emacs-lisp-mode-p)
-      (apply #'derived-mode-p '(lisp-mode scheme-mode))))
+      (apply #'derived-mode-p '(lisp-mode scheme-mode help-mode))))
 
 ;;;###autoload
 (defun smart-objc (&optional identifier next)
diff --git a/hui.el b/hui.el
index abc26cfa9c..769249bd92 100644
--- a/hui.el
+++ b/hui.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    19-Sep-91 at 21:42:03
-;; Last-Mod:     29-May-24 at 00:57:49 by Bob Weiner
+;; Last-Mod:     14-Jul-24 at 23:32:10 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1889,7 +1889,7 @@ Buffer without File      link-to-buffer-tmp"
                                                      (list 
'link-to-Info-index-item (hargs:at-p)))
                                                  (let ((hargs:reading-type 
'Info-node))
                                                    (list 'link-to-Info-node 
(hargs:at-p)))))
-                                              ((and (derived-mode-p 
#'texinfo-mode)
+                                              ((and (derived-mode-p 
'texinfo-mode)
                                                     (save-excursion
                                                       (beginning-of-line)
                                                       (or (looking-at "@node ")
diff --git a/kotl/klink.el b/kotl/klink.el
index f91366c779..f4870aee9b 100644
--- a/kotl/klink.el
+++ b/kotl/klink.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    15-Nov-93 at 12:15:16
-;; Last-Mod:     30-Jun-24 at 11:36:47 by Bob Weiner
+;; Last-Mod:     14-Jul-24 at 23:32:32 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -181,7 +181,7 @@ link-end-position, (including delimiters)."
               (not (br-browser-buffer-p))
             t)
           ;; If in a programming mode, Klinks can occur only within comments.
-          (if (and (derived-mode-p #'prog-mode)
+          (if (and (derived-mode-p 'prog-mode)
                    (not (derived-mode-p 'lisp-interaction-mode))
                    (not (memq major-mode hui-select-markup-modes)))
               ;; Next line means point is within a comment
@@ -306,7 +306,7 @@ See `actypes::link-to-kotl' for valid KLINK formats."
   (let ((obuf (current-buffer)))
     ;; Perform klink's action which is to jump to klink referent.
     (prog1 (hact 'link-to-kotl klink)
-      (when (derived-mode-p #'kotl-mode)
+      (when (derived-mode-p 'kotl-mode)
        (save-excursion
          ;; Update klink label if need be, which might be in a different buffer
          ;; than the current one.
diff --git a/kotl/kotl-orgtbl.el b/kotl/kotl-orgtbl.el
index 15ec8476f8..0defa6913c 100644
--- a/kotl/kotl-orgtbl.el
+++ b/kotl/kotl-orgtbl.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    10/18/2020
-;; Last-Mod:      3-Oct-23 at 22:24:23 by Mats Lidell
+;; Last-Mod:     14-Jul-24 at 23:32:40 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -76,7 +76,7 @@
 (defun orgtbl-tab (arg)
   "Justification and field motion for `orgtbl-mode' with Koutline support."
   (interactive "P")
-  (cond ((and (derived-mode-p #'kotl-mode) arg)
+  (cond ((and (derived-mode-p 'kotl-mode) arg)
         (kotl-mode:tab-command (if (= (prefix-numeric-value arg) 1) nil arg)))
        (arg
         (org-table-edit-field t))