summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/hi-lock.el31
2 files changed, 21 insertions, 16 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc287e09232..099f5334cac 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-01 Stefan Monnier <monnier@cs.yale.edu>
+
+ * hi-lock.el (hi-lock-find-patterns): Save restriction.
+
2002-02-01 Eli Zaretskii <eliz@is.elta.co.il>
* calendar/time-date.el: Moved from lisp/gnus.
@@ -37,7 +41,7 @@
(compile-always): Renamed from compile-files.
(compile-after-backup): Renamed from compile.
(bootstrap): Depend on compile-always, not compile-files.
-
+
* emulation/pc-select.el (pc-select-save-and-set-mode):
Properly use MODE-VAR.
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 6c7fb5d0c58..8d40852cf68 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -537,21 +537,22 @@ Optional argument END is maximum excursion."
(let ((all-patterns nil)
(target-regexp (concat "\\<" hi-lock-file-patterns-prefix ":")))
(save-excursion
- (widen)
- (goto-char (point-min))
- (re-search-forward target-regexp
- (+ (point) hi-lock-file-patterns-range) t)
- (beginning-of-line)
- (while (and (re-search-forward target-regexp (+ (point) 100) t)
- (not (looking-at "\\s-*end")))
- (let ((patterns
- (condition-case nil
- (read (current-buffer))
- (error (message
- (format "Could not read expression at %d"
- (hi-lock-current-line))) nil))))
- (if patterns
- (setq all-patterns (append patterns all-patterns))))))
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (re-search-forward target-regexp
+ (+ (point) hi-lock-file-patterns-range) t)
+ (beginning-of-line)
+ (while (and (re-search-forward target-regexp (+ (point) 100) t)
+ (not (looking-at "\\s-*end")))
+ (let ((patterns
+ (condition-case nil
+ (read (current-buffer))
+ (error (message
+ (format "Could not read expression at %d"
+ (hi-lock-current-line))) nil))))
+ (if patterns
+ (setq all-patterns (append patterns all-patterns)))))))
(when hi-lock-mode (hi-lock-set-file-patterns all-patterns))
(if (interactive-p)
(message (format "Hi-lock added %d patterns." (length all-patterns)))))))