Mercurial > emacs

diff lisp/emulation/viper-mous.el @ 22285:2e952bf93040

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(viper-surrounding-word): Added '_' to alpha modifiers.
author Karl Heuer <kwzh@gnu.org>
date Sat, 30 May 1998 14:29:44 +0000
parents f44ff2c52fac
children 4f315ca65976
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