/[emacs]/emacs/lisp/emulation/viper-ex.el
ViewVC logotype

Diff of /emacs/lisp/emulation/viper-ex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55 by ttn, Mon Aug 1 14:51:28 2005 UTC revision 1.56 by deego, Sun Sep 18 12:39:40 2005 UTC
# Line 1590  reversed." Line 1590  reversed."
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 ()
# Line 2230  Type 'mak ' (including the space) to run Line 2230  Type 'mak ' (including the space) to run
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")))

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26