diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2019-10-21 21:19:25 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2019-10-21 21:19:25 +0200 |
commit | 969f84b694a830272f1a05ae3a75f0c3885c8479 (patch) | |
tree | 38ed61458ace3fda2b5b0ba3e4715d69434c9114 /lisp/emulation/viper-util.el | |
parent | 8f9ed4c71d22288c38331199fd556acf65752d0d (diff) | |
download | emacs-969f84b694a830272f1a05ae3a75f0c3885c8479.tar.gz |
Remove more XEmacs compat code from viper-*.el
* lisp/emulation/viper-cmd.el (viper-submit-report):
* lisp/emulation/viper-init.el (viper-set-insert-cursor-type)
(viper-restore-cursor-type, viper-use-replace-region-delimiters)
(viper-has-face-support-p, viper-window-display-p)
(viper-color-display-p, viper-device-type):
* lisp/emulation/viper-mous.el (viper-mouse-click-search-word)
(viper-mouse-click-insert-word, viper-mouse-click-get-word)
(viper-mouse-click-posn, viper-mouse-click-window):
* lisp/emulation/viper-util.el (viper-abbreviate-file-name)
(viper-set-replace-overlay, viper-maybe-checkout): Remove XEmacs
compat code.
Diffstat (limited to 'lisp/emulation/viper-util.el')
-rw-r--r-- | lisp/emulation/viper-util.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 046cee9912c..c7073d06ac8 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el @@ -685,7 +685,7 @@ Otherwise return the normal value." (y-or-n-p (format "File %s is checked in. Check it out? " - (viper-abbreviate-file-name file)))) + (abbreviate-file-name file)))) (with-current-buffer buf (command-execute checkout-function))))) @@ -737,7 +737,7 @@ Otherwise return the normal value." ;; just have keymap attached to replace overlay. ;;(overlay-put ;; viper-replace-overlay - ;; (if (featurep 'xemacs) 'keymap 'local-map) + ;; 'local-map ;; viper-replace-map) ) (if (viper-has-face-support-p) @@ -804,8 +804,8 @@ Otherwise return the normal value." ;;; XEmacs compatibility -(defun viper-abbreviate-file-name (file) - (abbreviate-file-name file)) +(define-obsolete-function-alias 'viper-abbreviate-file-name + 'abbreviate-file-name "27.1") ;; Sit for VAL milliseconds. XEmacs doesn't support the millisecond arg ;; in sit-for, so this function smooths out the differences. |