Mercurial > emacs

comparison lisp/emacs-lisp/check-declare.el @ 94459:e7a38a8c4a05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(check-declare-errmsg): Fix counting in the `full' case.
author Glenn Morris <rgm@gnu.org>
date Tue, 29 Apr 2008 03:39:09 +0000
parents f4834ccd5bce
children 90a2847062be
comparison
equal deleted inserted replaced
94458:7ab159a31b3a 94459:e7a38a8c4a05
113 (if errlist 113 (if errlist
114 (let ((l (length errlist))) 114 (let ((l (length errlist)))
115 (when full 115 (when full
116 (setq l 0) 116 (setq l 0)
117 (dolist (e errlist) 117 (dolist (e errlist)
118 (setq l (1+ l)))) 118 (setq l (+ l (1- (length e))))))
119 (format "%d problem%s found" l (if (= l 1) "" "s"))) 119 (format "%d problem%s found" l (if (= l 1) "" "s")))
120 "OK")) 120 "OK"))
121 121
122 (autoload 'byte-compile-arglist-signature "bytecomp") 122 (autoload 'byte-compile-arglist-signature "bytecomp")
123 123