aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/filesets.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/filesets.el')
-rw-r--r--lisp/filesets.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/filesets.el b/lisp/filesets.el
index 74a2a72bb34..8599cb01d93 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1356,7 +1356,7 @@ Use the viewer defined in EV-ENTRY (a valid element of
1356 (run-hooks 'oh)) 1356 (run-hooks 'oh))
1357 (set-buffer-modified-p nil) 1357 (set-buffer-modified-p nil)
1358 (setq buffer-read-only t) 1358 (setq buffer-read-only t)
1359 (beginning-of-buffer)) 1359 (goto-char (point-min)))
1360 (when oh 1360 (when oh
1361 (run-hooks 'oh)))) 1361 (run-hooks 'oh))))
1362 (filesets-error 'error 1362 (filesets-error 'error
@@ -1593,7 +1593,8 @@ SAVE-FUNCTION takes no argument, but works on the current buffer."
1593(defun filesets-cmd-show-result (cmd output) 1593(defun filesets-cmd-show-result (cmd output)
1594 "Show OUTPUT of CMD (a shell command)." 1594 "Show OUTPUT of CMD (a shell command)."
1595 (pop-to-buffer "*Filesets: Shell Command Output*") 1595 (pop-to-buffer "*Filesets: Shell Command Output*")
1596 (end-of-buffer) 1596 (with-no-warnings
1597 (end-of-buffer))
1597 (insert "*** ") 1598 (insert "*** ")
1598 (insert cmd) 1599 (insert cmd)
1599 (newline) 1600 (newline)
@@ -1638,7 +1639,7 @@ Replace <file-name> or <<file-name>> with filename."
1638 (save-restriction 1639 (save-restriction
1639 (let ((buffer (filesets-find-file this))) 1640 (let ((buffer (filesets-find-file this)))
1640 (when buffer 1641 (when buffer
1641 (beginning-of-buffer) 1642 (goto-char (point-min))
1642 (let () 1643 (let ()
1643 (cond 1644 (cond
1644 ((stringp fn) 1645 ((stringp fn)