diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 1996-06-22 01:54:34 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 1996-06-22 01:54:34 +0000 |
| commit | bbe6126cba0c43dcc1159b28186bf65c7d54176b (patch) | |
| tree | a3725b543fd0dc76c08df5838c9164aa592e8549 /lisp/emulation/viper-mous.el | |
| parent | fce30d79b4845232bb41fbf6e33b6247c107cd15 (diff) | |
| download | emacs-bbe6126cba0c43dcc1159b28186bf65c7d54176b.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/emulation/viper-mous.el')
| -rw-r--r-- | lisp/emulation/viper-mous.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index 25e8b934c46..16e20aabda8 100644 --- a/lisp/emulation/viper-mous.el +++ b/lisp/emulation/viper-mous.el @@ -192,8 +192,8 @@ On single or double click, returns the word as determined by (let ((click-word "") (click-pos (vip-mouse-click-posn click)) (click-buf (vip-mouse-click-window-buffer click))) - (or (numberp count) (setq count 1)) - (or (numberp click-count) (setq click-count 1)) + (or (natnump count) (setq count 1)) + (or (natnump click-count) (setq click-count 1)) (save-excursion (save-window-excursion @@ -220,9 +220,9 @@ See `vip-surrounding-word' for the definition of a word in this case." (select-frame vip-frame-of-focus)) ;; turn arg into a number - (cond ((numberp arg) nil) + (cond ((integerp arg) nil) ;; prefix arg is a list when one hits C-u then command - ((and (listp arg) (numberp (car arg))) + ((and (listp arg) (integerp (car arg))) (setq arg (car arg))) (t (setq arg 1))) |