/[emacs]/emacs/lisp/emulation/vip.el
ViewVC logotype

Diff of /emacs/lisp/emulation/vip.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by lektu, Thu Jun 16 14:38:12 2005 UTC revision 1.34 by rms, Sun Jul 3 16:26:56 2005 UTC
# Line 1112  the query replace mode will toggle betwe Line 1112  the query replace mode will toggle betwe
1112              (replace-match (vip-read-string              (replace-match (vip-read-string
1113                              (format "Replace regexp \"%s\" with: " str))                              (format "Replace regexp \"%s\" with: " str))
1114                             nil nil))                             nil nil))
1115          (replace-string          (with-no-warnings
1116           str            (replace-string
1117           (vip-read-string (format "Replace \"%s\" with: " str)))))))             str
1118               (vip-read-string (format "Replace \"%s\" with: " str))))))))
1119    
1120    
1121  ;; basic cursor movement.  j, k, l, m commands.  ;; basic cursor movement.  j, k, l, m commands.
# Line 2830  a token has type \(command, address, end Line 2831  a token has type \(command, address, end
2831        (skip-chars-forward " \t")        (skip-chars-forward " \t")
2832        (if (looking-at "[\n|]") (error "Missing rhs"))        (if (looking-at "[\n|]") (error "Missing rhs"))
2833        (set-mark (point))        (set-mark (point))
2834        (end-of-buffer)        (with-no-warnings
2835            (end-of-buffer))
2836        (backward-char 1)        (backward-char 1)
2837        (setq string (buffer-substring (mark) (point))))        (setq string (buffer-substring (mark) (point))))
2838      (if (not (lookup-key ex-map char))      (if (not (lookup-key ex-map char))
# Line 2900  a token has type \(command, address, end Line 2902  a token has type \(command, address, end
2902          (setq file (buffer-substring (point) (mark)))))          (setq file (buffer-substring (point) (mark)))))
2903        (if variant        (if variant
2904            (shell-command command t)            (shell-command command t)
2905          (insert-file file))))          (with-no-warnings
2906              (insert-file file)))))
2907    
2908  (defun ex-set ()  (defun ex-set ()
2909    (eval (list 'setq    (eval (list 'setq

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26