[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gnugo e66bfa0 352/357: [gnugo int] Gate ‘cursor-intang

From: Stefan Monnier
Subject: [elpa] externals/gnugo e66bfa0 352/357: [gnugo int] Gate ‘cursor-intangible-mode’ call precisely
Date: Sun, 29 Nov 2020 14:51:55 -0500 (EST)

branch: externals/gnugo
commit e66bfa04adeb46cb061d1a30f103896972b85767
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [gnugo int] Gate ‘cursor-intangible-mode’ call precisely
    * packages/gnugo/gnugo.el (gnugo-board-mode): ...here, via ‘fboundp’.
 gnugo.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gnugo.el b/gnugo.el
index af3f3f0..abc4970 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -2169,10 +2169,16 @@ In this mode, keys do not self insert (see 
   (setq font-lock-defaults '(gnugo-font-lock-keywords t)
         truncate-lines t)
   (add-hook 'kill-buffer-hook 'gnugo-cleanup nil t)
-  (if (eq gnugo--intangible 'cursor-intangible)
+  ;; Previously, we used ‘(eq gnugo--intangible 'cursor-intangible)’
+  ;; here, but (a) this is a bit quicker; and (b) we want to placate
+  ;; Emacs 24, which blurts out a "not known to be defined" warning.
+  ;; (Apparently it cannot infer equivalence of the two conditions.)
+  (if (fboundp 'cursor-intangible-mode)
       (cursor-intangible-mode 1)
     ;; Make sure ‘intangible’ DTRT in this buffer.
     (setq-local inhibit-point-motion-hooks nil))
   (setq-local gnugo-state (gnugo--mkht :size (1- 42)))
   (setq-local gnugo-btw nil)
   (add-to-list 'minor-mode-alist '(gnugo-btw gnugo-btw))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]