mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Stefan Monnier 2002-02-01 19:31:46 +00:00
parent 662c9e53fe
commit 62cec9fefe
2 changed files with 21 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

31
lisp/hi-lock.el
View file

@ -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)))))))