mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(viper-surrounding-word): Added '_' to alpha modifiers.

Browse Source
This commit is contained in:
Karl Heuer 1998-05-30 14:29:44 +00:00
parent 63b98362a9
commit 22b630585d
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/emulation/viper-mous.el
View File

@ -158,7 +158,7 @@ For convenience, in Lisp modes, `-' is considered alphanumeric.
If CLICK-COUNT is 3 or more, returns the line clicked on with leading and
trailing space and tabs removed. In that case, the first argument, COUNT,
is ignored."
(let ((modifiers "")
(let ((modifiers "_")
beg skip-flag result
word-beg)
(if (> click-count 2)
@ -175,16 +175,18 @@ is ignored."
(save-excursion (viper-forward-char-carefully)
(viper-looking-at-alpha))))
(setq modifiers
(cond ((looking-at "\\\\") "\\\\")
((looking-at "-") "C-C-")
((looking-at "[][]") "][")
((looking-at "[()]") ")(")
((looking-at "[{}]") "{}")
((looking-at "[<>]") "<>")
((looking-at "[`']") "`'")
((looking-at "\\^") "\\^")
((viper-looking-at-separator) "")
(t (char-to-string (following-char))))
(concat modifiers
(cond ((looking-at "\\\\") "\\\\")
((looking-at "-") "C-C-")
((looking-at "[][]") "][")
((looking-at "[()]") ")(")
((looking-at "[{}]") "{}")
((looking-at "[<>]") "<>")
((looking-at "[`']") "`'")
((looking-at "\\^") "\\^")
((viper-looking-at-separator) "")
(t (char-to-string (following-char))))
)
))
;; Add `-' to alphanum, if it wasn't added and if we are in Lisp