diff options
| author | Karl Heuer <[email protected]> | 1998-05-30 14:29:44 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1998-05-30 14:29:44 +0000 |
| commit | 22b630585d8f430e1b04f6bff1c27eab147ace22 (patch) | |
| tree | b54b2b04e8dfc5d8a407a934a6040ff87ebd1621 /lisp/emulation | |
| parent | 63b98362a903e7a25363753cf1349d30fc13a791 (diff) | |
(viper-surrounding-word): Added '_' to alpha modifiers.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-mous.el | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index ac353ae28a..ada680d397 100644 --- a/lisp/emulation/viper-mous.el +++ b/lisp/emulation/viper-mous.el @@ -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 |