summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/asymptote/asy-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/asymptote/asy-mode.el')
-rw-r--r--Master/texmf-dist/asymptote/asy-mode.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/texmf-dist/asymptote/asy-mode.el b/Master/texmf-dist/asymptote/asy-mode.el
index ec3a3746d74..9f6eda793c7 100644
--- a/Master/texmf-dist/asymptote/asy-mode.el
+++ b/Master/texmf-dist/asymptote/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)