Commit ed6773fa authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(hi-lock-find-patterns): Protect also against invalid values for the pattern

lists which are `read'able but not `append'able (like symbols).
parent dc2204be
2005-07-07 Juanma Barranquero <lekktu@gmail.com>
* hi-lock.el (hi-lock-find-patterns): Protect also against invalid
values for the pattern lists which are `read'able but not
`append'able (like symbols).
2005-07-06 Richard M. Stallman <rms@gnu.org>
 
* progmodes/flymake.el (flymake-float-time): Instead of
......
......@@ -557,14 +557,10 @@ Optional argument END is maximum excursion."
(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)))))))
(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)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment