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

recentf.el fix for bug#5843.

Browse source 
* lisp/recentf.el (recentf-include-p): In case of a buggy predicate,
err on the side of including, not excluding.
This commit is contained in:
Glenn Morris 2011-03-04 00:14:57 -08:00
parent 0a5cb52bb4
commit 732795fa27
2 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-03-04 Glenn Morris <rgm@gnu.org>
* recentf.el (recentf-include-p): In case of a buggy predicate,
err on the side of including, not excluding. (Bug#5843)
2011-03-04 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-units.el (math-to-standard-rec): Don't treat subscripted

15
lisp/recentf.el
View file

@ -411,13 +411,14 @@ That is, if it doesn't match any of the `recentf-exclude' checks."
(checks recentf-exclude)
(keepit t))
(while (and checks keepit)
(setq keepit (condition-case nil
(not (if (stringp (car checks))
;; A regexp
(string-match (car checks) filename)
;; A predicate
(funcall (car checks) filename)))
(error nil))
;; If there was an error in a predicate, err on the side of
;; keeping the file. (Bug#5843)
(setq keepit (not (ignore-errors
(if (stringp (car checks))
;; A regexp
(string-match (car checks) filename)
;; A predicate
(funcall (car checks) filename))))
checks (cdr checks)))
keepit))