From 22b630585d8f430e1b04f6bff1c27eab147ace22 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 30 May 1998 14:29:44 +0000 Subject: [PATCH] (viper-surrounding-word): Added '_' to alpha modifiers. --- lisp/emulation/viper-mous.el | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index ac353ae28ad..ada680d3975 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 -- 2.39.2