[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/hi-lock.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/hi-lock.el |
Date: |
Fri, 01 Feb 2002 14:30:48 -0500 |
Index: emacs/lisp/hi-lock.el
diff -c emacs/lisp/hi-lock.el:1.15 emacs/lisp/hi-lock.el:1.16
*** emacs/lisp/hi-lock.el:1.15 Fri Aug 31 13:51:52 2001
--- emacs/lisp/hi-lock.el Fri Feb 1 14:30:23 2002
***************
*** 537,557 ****
(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))))))
(when hi-lock-mode (hi-lock-set-file-patterns all-patterns))
(if (interactive-p)
(message (format "Hi-lock added %d patterns." (length
all-patterns)))))))
--- 537,558 ----
(let ((all-patterns nil)
(target-regexp (concat "\\<" hi-lock-file-patterns-prefix ":")))
(save-excursion
! (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)))))))