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

[Juanma Barranquero]

Index: emacs/lisp/hi-lock.el
diff -c emacs/lisp/hi-lock.el:1.24 emacs/lisp/hi-lock.el:1.25
*** emacs/lisp/hi-lock.el:1.24  Mon Jul  4 23:08:54 2005
--- emacs/lisp/hi-lock.el       Thu Jul  7 01:49:08 2005
***************
*** 557,570 ****
          (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)))))))
--- 557,566 ----
          (beginning-of-line)
          (while (and (re-search-forward target-regexp (+ (point) 100) t)
                      (not (looking-at "\\s-*end")))
!             (condition-case nil
!                 (setq all-patterns (append (read (current-buffer)) 
all-patterns))
!               (error (message "Invalid pattern list expression at %d"
!                               (hi-lock-current-line)))))))
        (when hi-lock-mode (hi-lock-set-file-patterns all-patterns))
        (if (interactive-p)
          (message (format "Hi-lock added %d patterns." (length 
all-patterns)))))))