martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(vip-replace-string, ex-map, ex-read): Use with-no-warnings.

Browse Source
This commit is contained in:
Richard M. Stallman
2005-07-03 16:26:56 +00:00
parent 3b72eca0a3
commit 70903d8ef7
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/emulation/vip.el
View File

@@ -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