1590 |
|
|
1591 |
;; Ex print working directory |
;; Ex print working directory |
1592 |
(defun ex-pwd () |
(defun ex-pwd () |
1593 |
(message default-directory)) |
(message "%s" default-directory)) |
1594 |
|
|
1595 |
;; Ex quit command |
;; Ex quit command |
1596 |
(defun ex-quit () |
(defun ex-quit () |
2230 |
(if (buffer-modified-p) "[Modified]" "[Unchanged]"))) |
(if (buffer-modified-p) "[Modified]" "[Unchanged]"))) |
2231 |
(if (< (+ 1 (length info) (length file)) |
(if (< (+ 1 (length info) (length file)) |
2232 |
(window-width (minibuffer-window))) |
(window-width (minibuffer-window))) |
2233 |
(message (concat file " " info)) |
(message "%s" (concat file " " info)) |
2234 |
(save-window-excursion |
(save-window-excursion |
2235 |
(with-output-to-temp-buffer " *viper-info*" |
(with-output-to-temp-buffer " *viper-info*" |
2236 |
(princ (concat "\n" file "\n\n\t" info "\n\n"))) |
(princ (concat "\n" file "\n\n\t" info "\n\n"))) |