[Emacs-diffs] Changes to emacs/lisp/emulation/vip.el

[Richard M . Stallman]

Index: emacs/lisp/emulation/vip.el
diff -c emacs/lisp/emulation/vip.el:1.33 emacs/lisp/emulation/vip.el:1.34
*** emacs/lisp/emulation/vip.el:1.33    Thu Jun 16 14:38:12 2005
--- emacs/lisp/emulation/vip.el Sun Jul  3 16:26:56 2005
***************
*** 1112,1120 ****
            (replace-match (vip-read-string
                            (format "Replace regexp \"%s\" with: " str))
                           nil nil))
!       (replace-string
!        str
!        (vip-read-string (format "Replace \"%s\" with: " str)))))))
  
  
  ;; basic cursor movement.  j, k, l, m commands.
--- 1112,1121 ----
            (replace-match (vip-read-string
                            (format "Replace regexp \"%s\" with: " str))
                           nil nil))
!       (with-no-warnings
!         (replace-string
!          str
!          (vip-read-string (format "Replace \"%s\" with: " str))))))))
  
  
  ;; basic cursor movement.  j, k, l, m commands.
***************
*** 2830,2836 ****
        (skip-chars-forward " \t")
        (if (looking-at "[\n|]") (error "Missing rhs"))
        (set-mark (point))
!       (end-of-buffer)
        (backward-char 1)
        (setq string (buffer-substring (mark) (point))))
      (if (not (lookup-key ex-map char))
--- 2831,2838 ----
        (skip-chars-forward " \t")
        (if (looking-at "[\n|]") (error "Missing rhs"))
        (set-mark (point))
!       (with-no-warnings
!       (end-of-buffer))
        (backward-char 1)
        (setq string (buffer-substring (mark) (point))))
      (if (not (lookup-key ex-map char))
***************
*** 2900,2906 ****
        (setq file (buffer-substring (point) (mark)))))
        (if variant
          (shell-command command t)
!       (insert-file file))))
  
  (defun ex-set ()
    (eval (list 'setq
--- 2902,2909 ----
        (setq file (buffer-substring (point) (mark)))))
        (if variant
          (shell-command command t)
!       (with-no-warnings
!         (insert-file file)))))
  
  (defun ex-set ()
    (eval (list 'setq