Mercurial > emacs
comparison lisp/emulation/viper-ex.el @ 14384:854325337547
Moved code around to minimize compiler warnings.
author | Michael Kifer <kifer@cs.stonybrook.edu> |
---|---|
date | Fri, 26 Jan 1996 23:34:09 +0000 |
parents | 654081a41047 |
children | 12f164226ba7 |
comparison
equal
deleted
inserted
replaced
14383:af281a43a3bb | 14384:854325337547 |
---|---|
1410 (goto-char point) | 1410 (goto-char point) |
1411 (if (bobp) (vip-Put-back 1) (vip-put-back 1)))) | 1411 (if (bobp) (vip-Put-back 1) (vip-put-back 1)))) |
1412 | 1412 |
1413 ;; Ex print working directory | 1413 ;; Ex print working directory |
1414 (defun ex-pwd () | 1414 (defun ex-pwd () |
1415 (message "%s" default-directory)) | 1415 (message default-directory)) |
1416 | 1416 |
1417 ;; Ex quit command | 1417 ;; Ex quit command |
1418 (defun ex-quit () | 1418 (defun ex-quit () |
1419 ;; skip "!", if it is q!. In Viper q!, w!, etc., behave as q, w, etc. | 1419 ;; skip "!", if it is q!. In Viper q!, w!, etc., behave as q, w, etc. |
1420 (save-excursion | 1420 (save-excursion |
1558 ((member var '("nows" "nowrapscan")) | 1558 ((member var '("nows" "nowrapscan")) |
1559 (setq var "vip-search-wrap-around-t" | 1559 (setq var "vip-search-wrap-around-t" |
1560 val "nil"))) | 1560 val "nil"))) |
1561 (if (eq val 0) ; value must be set by the user | 1561 (if (eq val 0) ; value must be set by the user |
1562 (let ((cursor-in-echo-area t)) | 1562 (let ((cursor-in-echo-area t)) |
1563 (message ":set %s = <Value>" var) | 1563 (message (format ":set %s = <Value>" var)) |
1564 ;; if there are unread events, don't wait | 1564 ;; if there are unread events, don't wait |
1565 (or (vip-set-unread-command-events "") (sit-for 2)) | 1565 (or (vip-set-unread-command-events "") (sit-for 2)) |
1566 (setq val (read-string (format ":set %s = " var))) | 1566 (setq val (read-string (format ":set %s = " var))) |
1567 (ex-fixup-history "set" orig-var val) | 1567 (ex-fixup-history "set" orig-var val) |
1568 | 1568 |
1630 ;; del pattern | 1630 ;; del pattern |
1631 lisp-cmd-del-pattern) | 1631 lisp-cmd-del-pattern) |
1632 )) | 1632 )) |
1633 )) | 1633 )) |
1634 | 1634 |
1635 (message "%s %s %s" set-cmd var (if (string-match "^[ \t]*$" val) | 1635 (message (format "%s %s %s" set-cmd var (if (string-match "^[ \t]*$" val) |
1636 (format "%S" val) | 1636 (format "%S" val) |
1637 val)) | 1637 val))) |
1638 (eval (car (read-from-string actual-lisp-cmd))) | 1638 (eval (car (read-from-string actual-lisp-cmd))) |
1639 (if (string= var "fill-column") | 1639 (if (string= var "fill-column") |
1640 (if (> val2 0) | 1640 (if (> val2 0) |
1641 (auto-fill-mode 1) | 1641 (auto-fill-mode 1) |
1642 (auto-fill-mode -1))) | 1642 (auto-fill-mode -1))) |
1960 (point) (1- (point-max)) | 1960 (point) (1- (point-max)) |
1961 (1+ (current-column)) | 1961 (1+ (current-column)) |
1962 (if (buffer-modified-p) "[Modified]" "[Unchanged]"))) | 1962 (if (buffer-modified-p) "[Modified]" "[Unchanged]"))) |
1963 (if (< (+ 1 (length info) (length file)) | 1963 (if (< (+ 1 (length info) (length file)) |
1964 (window-width (minibuffer-window))) | 1964 (window-width (minibuffer-window))) |
1965 (message "%s %s" file info) | 1965 (message (concat file " " info)) |
1966 (save-window-excursion | 1966 (save-window-excursion |
1967 (with-output-to-temp-buffer " *vip-info*" | 1967 (with-output-to-temp-buffer " *vip-info*" |
1968 (princ (concat "\n" | 1968 (princ (concat "\n" |
1969 file "\n\n\t" info | 1969 file "\n\n\t" info |
1970 "\n\n\nPress any key to continue...\n\n"))) | 1970 "\n\n\nPress any key to continue...\n\n"))) |