diff lisp/subr.el @ 83182:4e92102a0172

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-468 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-469 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-222

--- a/lisp/subr.el	Sat Jul 24 22:08:12 2004 +0000
+++ b/lisp/subr.el	Tue Jul 27 07:43:21 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)))