procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove more XEmacs compat code from viper-*.el

Browse source 
* lisp/emulation/viper-cmd.el (viper-special-read-and-insert-char)
(viper-next-line-carefully, viper-next-line)
(viper-previous-line): Ditto.

* lisp/emulation/viper-mous.el (viper-surrounding-word)
(viper-parse-mouse-key): Remove XEmacs compat code.
This commit is contained in:
Lars Ingebrigtsen 2019-10-04 14:29:58 +02:00
parent 7174a2b59f
commit 07959a0ffb
2 changed files with 21 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emulation/viper-cmd.el
View file

@ -789,7 +789,6 @@ Vi's prefix argument will be used. Otherwise, the prefix argument passed to
viper-emacs-kbd-minor-mode
ch)
(cond ((and viper-special-input-method
(featurep 'emacs)
(fboundp 'quail-input-method))
;; (let ...) is used to restore unread-command-events to the
;; original state. We don't want anything left in there after
@ -2594,9 +2593,8 @@ On reaching beginning of line, stop and signal error."
(condition-case nil
;; do not use forward-line! need to keep column
(let ((line-move-visual nil))
(if (featurep 'emacs)
(with-no-warnings (next-line arg))
(next-line arg)))
(with-no-warnings
(next-line arg)))
(error nil)))
@ -2886,9 +2884,8 @@ On reaching beginning of line, stop and signal error."
(if com (viper-move-marker-locally 'viper-com-point (point)))
;; do not use forward-line! need to keep column
(let ((line-move-visual nil))
(if (featurep 'emacs)
(with-no-warnings (next-line val))
(next-line val)))
(with-no-warnings
(next-line val)))
(if viper-ex-style-motion
(if (and (eolp) (not (bolp))) (backward-char 1)))
(setq this-command 'next-line)
@ -2934,9 +2931,8 @@ If point is on a widget or a button, simulate clicking on that widget/button."
(if com (viper-move-marker-locally 'viper-com-point (point)))
;; do not use forward-line! need to keep column
(let ((line-move-visual nil))
(if (featurep 'emacs)
(with-no-warnings (previous-line val))
(previous-line val)))
(with-no-warnings
(previous-line val)))
(if viper-ex-style-motion
(if (and (eolp) (not (bolp))) (backward-char 1)))
(setq this-command 'previous-line)