Mercurial > emacs
comparison lisp/emulation/viper-ex.el @ 93773:d7554c14325c
2008-04-06 Michael Kifer <kifer@cs.stonybrook.edu>
* viper*.el (viper-search-wrap-around-t): replace with
viper-search-wrap-around.
* ediff*.el: replace 3-argument 'require' statements with 1-argument
ones (wrapped in if's). For compatibility with the current stable
version of XEmacs.
author | Michael Kifer <kifer@cs.stonybrook.edu> |
---|---|
date | Sun, 06 Apr 2008 19:26:02 +0000 |
parents | 6523ed37006c |
children | 1e3a407766b9 |
comparison
equal
deleted
inserted
replaced
93772:061a2121a7e8 | 93773:d7554c14325c |
---|---|
1740 val "t")) | 1740 val "t")) |
1741 ((member var '("nosm" "noshowmatch")) | 1741 ((member var '("nosm" "noshowmatch")) |
1742 (setq var "blink-matching-paren" | 1742 (setq var "blink-matching-paren" |
1743 val "nil")) | 1743 val "nil")) |
1744 ((member var '("ws" "wrapscan")) | 1744 ((member var '("ws" "wrapscan")) |
1745 (setq var "viper-search-wrap-around-t" | 1745 (setq var "viper-search-wrap-around" |
1746 val "t")) | 1746 val "t")) |
1747 ((member var '("nows" "nowrapscan")) | 1747 ((member var '("nows" "nowrapscan")) |
1748 (setq var "viper-search-wrap-around-t" | 1748 (setq var "viper-search-wrap-around" |
1749 val "nil"))) | 1749 val "nil"))) |
1750 (if (and set-cmd (eq val 0)) ; value must be set by the user | 1750 (if (and set-cmd (eq val 0)) ; value must be set by the user |
1751 (let ((cursor-in-echo-area t)) | 1751 (let ((cursor-in-echo-area t)) |
1752 (message ":set %s = <Value>" var) | 1752 (message ":set %s = <Value>" var) |
1753 ;; if there are unread events, don't wait | 1753 ;; if there are unread events, don't wait |
2266 "autoindent (global) \n" "noautoindent (global) \n")) | 2266 "autoindent (global) \n" "noautoindent (global) \n")) |
2267 (princ (if viper-case-fold-search "ignorecase\n" "noignorecase\n")) | 2267 (princ (if viper-case-fold-search "ignorecase\n" "noignorecase\n")) |
2268 (princ (if viper-re-search "magic\n" "nomagic\n")) | 2268 (princ (if viper-re-search "magic\n" "nomagic\n")) |
2269 (princ (if buffer-read-only "readonly\n" "noreadonly\n")) | 2269 (princ (if buffer-read-only "readonly\n" "noreadonly\n")) |
2270 (princ (if blink-matching-paren "showmatch\n" "noshowmatch\n")) | 2270 (princ (if blink-matching-paren "showmatch\n" "noshowmatch\n")) |
2271 (princ (if viper-search-wrap-around-t "wrapscan\n" "nowrapscan\n")) | 2271 (princ (if viper-search-wrap-around "wrapscan\n" "nowrapscan\n")) |
2272 (princ (format "shiftwidth \t\t= %S\n" viper-shift-width)) | 2272 (princ (format "shiftwidth \t\t= %S\n" viper-shift-width)) |
2273 (princ (format "tabstop (local) \t= %S\n" tab-width)) | 2273 (princ (format "tabstop (local) \t= %S\n" tab-width)) |
2274 (princ (format "tabstop (global) \t= %S\n" (default-value 'tab-width))) | 2274 (princ (format "tabstop (global) \t= %S\n" (default-value 'tab-width))) |
2275 (princ (format "wrapmargin (local) \t= %S\n" | 2275 (princ (format "wrapmargin (local) \t= %S\n" |
2276 (- (window-width) fill-column))) | 2276 (- (window-width) fill-column))) |