]> code.delx.au - gnu-emacs/blobdiff - lisp/mouse-sel.el
New icons for debugger.
[gnu-emacs] / lisp / mouse-sel.el
index 87a75a54c6f770e1b22bbc7e9c7d6021ceb3be9e..bba41a0dbf9aca6d7d72057b348581d1cdc0c611 100644 (file)
@@ -198,7 +198,7 @@ If nil, point will always be placed at the beginning of the region."
 
 (defvar mouse-sel-original-bindings nil)
 (defvar mouse-sel-original-interprogram-cut-function nil)
-(defvar mouse-sel-original-interprogram-cut-function nil)
+(defvar mouse-sel-original-interprogram-paste-function nil)
 
 ;;;###autoload
 (define-minor-mode mouse-sel-mode
@@ -345,7 +345,7 @@ multi-click semantics."
      ((= nclicks 3) 'line)
      ((>= nclicks 4) 'paragraph)
      ((memq char-syntax '(?\( ?\) ?\" ?')) 'sexp)
-     ((memq next-char '(? ?\t ?\n)) 'whitespace)
+     ((memq next-char '(?\s ?\t ?\n)) 'whitespace)
      ((eq char-syntax ?_) 'symbol)
      ((eq char-syntax ?w) 'word))))