comparison lisp/filesets.el @ 58039:5bf48738f9ab

(filesets-spawn-external-viewer, filesets-run-cmd): Don't use beginning-of-buffer. (filesets-cmd-show-result): Use with-no-warnings.

58038:238fa05221c4

		(set-visited-file-name file t)
		(when oh
		  (run-hooks 'oh))
		(set-buffer-modified-p nil)
		(setq buffer-read-only t)
		(beginning-of-buffer))
	    (when oh
	      (run-hooks 'oh))))
      (filesets-error 'error
		      "Filesets: general error when spawning external viewer"))))

    (nth 1 def)))

(defun filesets-cmd-show-result (cmd output)
  "Show OUTPUT of CMD (a shell command)."
  (pop-to-buffer "*Filesets: Shell Command Output*")
  (end-of-buffer)
  (insert "*** ")
  (insert cmd)
  (newline)
  (insert output)
  (newline))

	    (dolist (this files nil)
	      (save-excursion
		(save-restriction
		  (let ((buffer (filesets-find-file this)))
		    (when buffer
		      (beginning-of-buffer)
		      (let ()
			(cond
			 ((stringp fn)
			  (let* ((args
				  (let ((txt ""))

58039:5bf48738f9ab

		(set-visited-file-name file t)
		(when oh
		  (run-hooks 'oh))
		(set-buffer-modified-p nil)
		(setq buffer-read-only t)
		(goto-char (point-min)))
	    (when oh
	      (run-hooks 'oh))))
      (filesets-error 'error
		      "Filesets: general error when spawning external viewer"))))

    (nth 1 def)))

(defun filesets-cmd-show-result (cmd output)
  "Show OUTPUT of CMD (a shell command)."
  (pop-to-buffer "*Filesets: Shell Command Output*")
  (with-no-warnings
   (end-of-buffer))
  (insert "*** ")
  (insert cmd)
  (newline)
  (insert output)
  (newline))

	    (dolist (this files nil)
	      (save-excursion
		(save-restriction
		  (let ((buffer (filesets-find-file this)))
		    (when buffer
		      (goto-char (point-min))
		      (let ()
			(cond
			 ((stringp fn)
			  (let* ((args
				  (let ((txt ""))