diff options
author | Richard M. Stallman <rms@gnu.org> | 2005-07-03 16:26:56 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2005-07-03 16:26:56 +0000 |
commit | 70903d8ef70353dea6b3e86c27eba52dffae3779 (patch) | |
tree | abcda8b32b598572d9b2511c451986717d9e48f5 /lisp/emulation/vip.el | |
parent | 3b72eca0a36c364e9fdeb2ae7c50718b3d3c2bea (diff) |
(vip-replace-string, ex-map, ex-read): Use with-no-warnings.
Diffstat (limited to 'lisp/emulation/vip.el')
-rw-r--r-- | lisp/emulation/vip.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 7584436e20..6caa12179c 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -1112,9 +1112,10 @@ the query replace mode will toggle between string replace and regexp replace." (replace-match (vip-read-string (format "Replace regexp \"%s\" with: " str)) nil nil)) - (replace-string - str - (vip-read-string (format "Replace \"%s\" with: " str))))))) + (with-no-warnings + (replace-string + str + (vip-read-string (format "Replace \"%s\" with: " str)))))))) ;; basic cursor movement. j, k, l, m commands. @@ -2830,7 +2831,8 @@ a token has type \(command, address, end-mark\) and value." (skip-chars-forward " \t") (if (looking-at "[\n|]") (error "Missing rhs")) (set-mark (point)) - (end-of-buffer) + (with-no-warnings + (end-of-buffer)) (backward-char 1) (setq string (buffer-substring (mark) (point)))) (if (not (lookup-key ex-map char)) @@ -2900,7 +2902,8 @@ a token has type \(command, address, end-mark\) and value." (setq file (buffer-substring (point) (mark))))) (if variant (shell-command command t) - (insert-file file)))) + (with-no-warnings + (insert-file file))))) (defun ex-set () (eval (list 'setq |