diff options
Diffstat (limited to 'lisp/filesets.el')
| -rw-r--r-- | lisp/filesets.el | 7 |
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) |