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

(occur): Avoid "1 lines" in echo area.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-04 15:31:01 +00:00
parent da6a48c9d1
commit 65b4665c1f
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/replace.el
View file

@ -448,11 +448,13 @@ It serves as a menu to find any of the occurrences in this buffer.
;; Put positions in increasing order to go with buffer.
(setq occur-pos-list (nreverse occur-pos-list))
(goto-char (point-min))
(if (= (length occur-pos-list) 1)
(insert "1 line")
(insert (format "%d lines" (length occur-pos-list))))
(if (interactive-p)
(message "%d matching lines." (length occur-pos-list)))))))))
(let ((message-string
(if (= (length occur-pos-list) 1)
"1 line"
(format "%d lines" (length occur-pos-list)))))
(insert message-string)
(if (interactive-p)
(message "%s matched" message-string)))))))))
;; It would be nice to use \\[...], but there is no reasonable way
;; to make that display both SPC and Y.