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. |
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)) |
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 |