Mercurial > emacs

comparison lisp/replace.el @ 83320:ebfb2856c8e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 447-448) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-447 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-448 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-360
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 26 Jun 2005 21:12:57 +0000
parents c11482ba7b96
children 98208dd356b4
comparison
equal deleted inserted replaced
83319:8f5787c83345 83320:ebfb2856c8e6
999 (if (> count 0) 999 (if (> count 0)
1000 (progn 1000 (progn
1001 (display-buffer occur-buf) 1001 (display-buffer occur-buf)
1002 (setq next-error-last-buffer occur-buf)) 1002 (setq next-error-last-buffer occur-buf))
1003 (kill-buffer occur-buf))) 1003 (kill-buffer occur-buf)))
1004 (run-hooks 'occur-hook)) 1004 (setq buffer-read-only t)
1005 (setq buffer-read-only t) 1005 (set-buffer-modified-p nil)
1006 (set-buffer-modified-p nil)))) 1006 (run-hooks 'occur-hook)))))
1007 1007
1008 (defun occur-engine-add-prefix (lines) 1008 (defun occur-engine-add-prefix (lines)
1009 (mapcar 1009 (mapcar
1010 #'(lambda (line) 1010 #'(lambda (line)
1011 (concat " :" line "\n")) 1011 (concat " :" line "\n"))