(butlast, event-modifiers, event-basic-type): Doc fixes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b9ee25..65648fb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-07-25  John Paul Wallington  <jpw@gnu.org>
+
+       * subr.el (butlast, event-modifiers, event-basic-type): Doc fixes.
+
 2004-07-24  Luc Teirlinck  <teirllm@auburn.edu>
 
        * term/tty-colors.el (tty-color-approximate): Doc fix.

diff --git a/lisp/subr.el b/lisp/subr.el
index 9dd1e41..1e30a12 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -198,7 +198,7 @@ If N is bigger than the length of LIST, return LIST."
     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 @@ The normal global definition of the character C-x indirects to this keymap.")
           (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 @@ and `down'."
        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)))