[Emacs-diffs] Changes to emacs/lisp/hi-lock.el

[Stefan Monnier]

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