branch: externals/hyperbole
commit b8687ce867faee05ba540b908dc3fc4dfe534427
Author: bw <r...@gnu.org>
Commit: bw <r...@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))
