# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099932145 0
# Node ID 5bf48738f9ab780f20c4537fd5392b2e5eb67238
# Parent  238fa05221c4d31485e93afe740532145e49acd3
(filesets-spawn-external-viewer, filesets-run-cmd):
Don't use beginning-of-buffer.
(filesets-cmd-show-result): Use with-no-warnings.

diff -r 238fa05221c4 -r 5bf48738f9ab lisp/filesets.el
--- 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)