# HG changeset patch # User Dave Love # Date 1062442049 0 # Node ID 970694efa9b5c71cf130ca151f93daf165b43296 # Parent e9f215a02058eb6a0c9475ce7ce687e38a266ab6 (mouse-popup-menubar, mouse-skip-word): Doc fix. diff -r e9f215a02058 -r 970694efa9b5 lisp/mouse.el --- a/lisp/mouse.el Mon Sep 01 18:46:41 2003 +0000 +++ b/lisp/mouse.el Mon Sep 01 18:47:29 2003 +0000 @@ -166,7 +166,7 @@ (lookup-key menubar (vector (car submap))))))) (defun mouse-popup-menubar (event prefix) - "Pops up a menu equivalent to the menu bar a keyboard EVENT with PREFIX. + "Pop up a menu equivalent to the menu bar for keyboard EVENT with PREFIX. The contents are the items that would be in the menu bar whether or not it is actually displayed." (interactive "@e \nP") @@ -895,12 +895,12 @@ (while (and (not (eobp)) (= (following-char) char)) (forward-char 1)))))) -;; Return a list of region bounds based on START and END according to MODE. -;; If MODE is 0 then set point to (min START END), mark to (max START END). -;; If MODE is 1 then set point to start of word at (min START END), -;; mark to end of word at (max START END). -;; If MODE is 2 then do the same for lines. (defun mouse-start-end (start end mode) +"Return a list of region bounds based on START and END according to MODE. +If MODE is 0 then set point to (min START END), mark to (max START END). +If MODE is 1 then set point to start of word at (min START END), +mark to end of word at (max START END). +If MODE is 2 then do the same for lines." (if (> start end) (let ((temp start)) (setq start end