diff options
| author | Glenn Morris | 2008-03-01 20:10:26 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-03-01 20:10:26 +0000 |
| commit | b94f99c8043811dc9a41b0e6e4b95a8233abf1c2 (patch) | |
| tree | 6eddfb6817450918c179498fc135ec0dbf061d79 /lisp | |
| parent | c92d7d39c85025be4a5521ca72f747c4d453cd50 (diff) | |
| download | emacs-b94f99c8043811dc9a41b0e6e4b95a8233abf1c2.tar.gz emacs-b94f99c8043811dc9a41b0e6e4b95a8233abf1c2.zip | |
Expand all viper-cond-compile-for-xemacs-or-emacs calls to a featurep test.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/viper-ex.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el index 8e19a0b50bd..cd153bdaf91 100644 --- a/lisp/emulation/viper-ex.el +++ b/lisp/emulation/viper-ex.el | |||
| @@ -2077,10 +2077,8 @@ Please contact your system administrator. " | |||
| 2077 | ;; create temp buffer for the region | 2077 | ;; create temp buffer for the region |
| 2078 | (setq temp-buf (get-buffer-create " *ex-write*")) | 2078 | (setq temp-buf (get-buffer-create " *ex-write*")) |
| 2079 | (set-buffer temp-buf) | 2079 | (set-buffer temp-buf) |
| 2080 | (viper-cond-compile-for-xemacs-or-emacs | 2080 | (if (featurep 'xemacs) (set-visited-file-name ex-file) |
| 2081 | (set-visited-file-name ex-file) ; xemacs | 2081 | (set-visited-file-name ex-file 'noquery)) |
| 2082 | (set-visited-file-name ex-file 'noquerry) ; emacs | ||
| 2083 | ) | ||
| 2084 | (erase-buffer) | 2082 | (erase-buffer) |
| 2085 | (if (and file-exists ex-append) | 2083 | (if (and file-exists ex-append) |
| 2086 | (insert-file-contents ex-file)) | 2084 | (insert-file-contents ex-file)) |