Mercurial > emacs
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.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 08 Nov 2004 16:42:25 +0000 |
parents | cb0a9c84d565 |
children | aac0a33f5772 cb7f41387eb3 |
comparison
equal
deleted
inserted
replaced
58038:238fa05221c4 | 58039:5bf48738f9ab |
---|---|
1354 (set-visited-file-name file t) | 1354 (set-visited-file-name file t) |
1355 (when oh | 1355 (when oh |
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 |
1363 "Filesets: general error when spawning external viewer")))) | 1363 "Filesets: general error when spawning external viewer")))) |
1364 | 1364 |
1591 (nth 1 def))) | 1591 (nth 1 def))) |
1592 | 1592 |
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) |
1600 (insert output) | 1601 (insert output) |
1601 (newline)) | 1602 (newline)) |
1636 (dolist (this files nil) | 1637 (dolist (this files nil) |
1637 (save-excursion | 1638 (save-excursion |
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) |
1645 (let* ((args | 1646 (let* ((args |
1646 (let ((txt "")) | 1647 (let ((txt "")) |