Mercurial > emacs
changeset 43052:4037178317df
*** empty log message ***
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 01 Feb 2002 19:31:46 +0000 |
| parents | 1be1134989cd |
| children | c9f8fe6e7d28 |
| files | lisp/ChangeLog lisp/hi-lock.el |
| diffstat | 2 files changed, 21 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Feb 01 18:31:48 2002 +0000 +++ b/lisp/ChangeLog Fri Feb 01 19:31:46 2002 +0000 @@ -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.
--- a/lisp/hi-lock.el Fri Feb 01 18:31:48 2002 +0000 +++ b/lisp/hi-lock.el Fri Feb 01 19:31:46 2002 +0000 @@ -537,21 +537,22 @@ (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)))))))