summaryrefslogtreecommitdiff
path: root/graphics/asymptote/base/asy-mode.el
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-12-28 03:01:00 +0000
committerNorbert Preining <norbert@preining.info>2021-12-28 03:01:00 +0000
commitecdf859b6ce481abfd530425dcf6f0f764bd0001 (patch)
tree13bc161dc046876ac6c92fce5f9f5034ba9aa573 /graphics/asymptote/base/asy-mode.el
parent790995b7e79697514364450bf9c04f1b8d500838 (diff)
CTAN sync 202112280300
Diffstat (limited to 'graphics/asymptote/base/asy-mode.el')
-rw-r--r--graphics/asymptote/base/asy-mode.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/graphics/asymptote/base/asy-mode.el b/graphics/asymptote/base/asy-mode.el
index ec3a3746d7..9f6eda793c 100644
--- a/graphics/asymptote/base/asy-mode.el
+++ b/graphics/asymptote/base/asy-mode.el
@@ -110,7 +110,7 @@ Some variables can be customized: M-x customize-group <RET> asymptote <RET>."
(require 'font-lock)
(require 'cc-mode)
-(require 'cl) ;; Common Lisp extensions for Emacs
+(require 'cl-lib) ;; Common Lisp extensions for Emacs
(require 'compile)
(require 'wid-edit)
@@ -637,6 +637,9 @@ Fields are defined as 'field1: field2.field3:field4' . Field=0 <-> all fields"
(if (locate-library "two-mode-mode")
(progn
+;; patch two-mode-mode.el for Emacs >= 23.
+ (defun make-local-hook (func))
+
(defvar lasy-fontify-asy-p nil
"Variable to communicate with `font-lock-unfontify-region'.
Internal use, don't set in any fashion.")
@@ -682,7 +685,8 @@ the current mode."
(setq lasy-fontify-asy-p (eq func 'asy-mode))
(funcall func)
(hack-local-variables)
- (two-mode-mode-setup)
+;; avoid infinite loop in two-mode-mode
+;; (two-mode-mode-setup)
(if two-mode-switch-hook
(run-hooks 'two-mode-switch-hook))
(if (eq font-lock-mode t)