# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1090734313 0
# Node ID 69db3634588e7767514a72aa1638762e12a42531
# Parent  0052eaa23782cc99f0d23650f766e339ecd56a4e
(butlast, event-modifiers, event-basic-type): Doc fixes.

diff -r 0052eaa23782 -r 69db3634588e lisp/subr.el
--- a/lisp/subr.el	Sat Jul 24 23:48:49 2004 +0000
+++ b/lisp/subr.el	Sun Jul 25 05:45:13 2004 +0000
@@ -198,7 +198,7 @@
     list))
 
 (defun butlast (list &optional n)
-  "Returns a copy of LIST with the last N elements removed."
+  "Return a copy of LIST with the last N elements removed."
   (if (and n (<= n 0)) list
     (nbutlast (copy-sequence list) n)))
 
@@ -641,7 +641,7 @@
 	   (get (car obj) 'event-symbol-elements))))
 
 (defun event-modifiers (event)
-  "Returns a list of symbols representing the modifier keys in event EVENT.
+  "Return a list of symbols representing the modifier keys in event EVENT.
 The elements of the list may include `meta', `control',
 `shift', `hyper', `super', `alt', `click', `double', `triple', `drag',
 and `down'."
@@ -670,7 +670,7 @@
 	list))))
 
 (defun event-basic-type (event)
-  "Returns the basic type of the given event (all modifiers removed).
+  "Return the basic type of the given event (all modifiers removed).
 The value is a printing character (not upper case) or a symbol."
   (if (consp event)
       (setq event (car event)))