Mercurial > emacs

changeset 58039:5bf48738f9ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(filesets-spawn-external-viewer, filesets-run-cmd): Don't use beginning-of-buffer. (filesets-cmd-show-result): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Mon, 08 Nov 2004 16:42:25 +0000
parents 238fa05221c4
children af694410e72f
files lisp/filesets.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/filesets.el	Mon Nov 08 16:40:33 2004 +0000
+++ b/lisp/filesets.el	Mon Nov 08 16:42:25 2004 +0000
@@ -1356,7 +1356,7 @@
 		  (run-hooks 'oh))
 		(set-buffer-modified-p nil)
 		(setq buffer-read-only t)
-		(beginning-of-buffer))
+		(goto-char (point-min)))
 	    (when oh
 	      (run-hooks 'oh))))
       (filesets-error 'error
@@ -1593,7 +1593,8 @@
 (defun filesets-cmd-show-result (cmd output)
   "Show OUTPUT of CMD (a shell command)."
   (pop-to-buffer "*Filesets: Shell Command Output*")
-  (end-of-buffer)
+  (with-no-warnings
+   (end-of-buffer))
   (insert "*** ")
   (insert cmd)
   (newline)
@@ -1638,7 +1639,7 @@
 		(save-restriction
 		  (let ((buffer (filesets-find-file this)))
 		    (when buffer
-		      (beginning-of-buffer)
+		      (goto-char (point-min))
 		      (let ()
 			(cond
 			 ((stringp fn)