[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/viper-ex.el
From: |
D . Goel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/viper-ex.el |
Date: |
Sun, 18 Sep 2005 08:39:40 -0400 |
Index: emacs/lisp/emulation/viper-ex.el
diff -c emacs/lisp/emulation/viper-ex.el:1.55
emacs/lisp/emulation/viper-ex.el:1.56
*** emacs/lisp/emulation/viper-ex.el:1.55 Mon Aug 1 14:51:28 2005
--- emacs/lisp/emulation/viper-ex.el Sun Sep 18 12:39:40 2005
***************
*** 1590,1596 ****
;; Ex print working directory
(defun ex-pwd ()
! (message default-directory))
;; Ex quit command
(defun ex-quit ()
--- 1590,1596 ----
;; Ex print working directory
(defun ex-pwd ()
! (message "%s" default-directory))
;; Ex quit command
(defun ex-quit ()
***************
*** 2230,2236 ****
(if (buffer-modified-p) "[Modified]" "[Unchanged]")))
(if (< (+ 1 (length info) (length file))
(window-width (minibuffer-window)))
! (message (concat file " " info))
(save-window-excursion
(with-output-to-temp-buffer " *viper-info*"
(princ (concat "\n" file "\n\n\t" info "\n\n")))
--- 2230,2236 ----
(if (buffer-modified-p) "[Modified]" "[Unchanged]")))
(if (< (+ 1 (length info) (length file))
(window-width (minibuffer-window)))
! (message "%s" (concat file " " info))
(save-window-excursion
(with-output-to-temp-buffer " *viper-info*"
(princ (concat "\n" file "\n\n\t" info "\n\n")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emulation/viper-ex.el,
D . Goel <=