procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lm-keywords-finder-p): Use with-no-warnings.

Browse source
This commit is contained in:
Richard M. Stallman 2003-06-04 09:48:50 +00:00
parent 7788783202
commit 9b45407516
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/lisp-mnt.el
View file

@ -456,7 +456,8 @@ This can be found in an RCS or SCCS header."
(let ((keys (lm-keywords-list file)))
(catch 'keyword-found
(while keys
(if (assoc (intern (car keys)) finder-known-keywords)
(if (assoc (intern (car keys))
(with-no-warnings finder-known-keywords))
(throw 'keyword-found t))
(setq keys (cdr keys)))
nil)))