Mercurial > emacs
changeset 22285:2e952bf93040
(viper-surrounding-word): Added '_' to alpha modifiers.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 30 May 1998 14:29:44 +0000 |
| parents | 7c92be9aea04 |
| children | c222c6df8c5a |
| files | lisp/emulation/viper-mous.el |
| diffstat | 1 files changed, 13 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/viper-mous.el Sat May 30 14:29:25 1998 +0000 +++ b/lisp/emulation/viper-mous.el Sat May 30 14:29:44 1998 +0000 @@ -158,7 +158,7 @@ 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 @@ (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