# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1091288730 0
# Node ID 059dc717baefd0e8953690508f645f5b93335328
# Parent  a6cb62c42cecfbcbcd07c0422b8b079c1944c41b
(event-modifiers, event-basic-type): Doc fixes.

diff -r a6cb62c42cec -r 059dc717baef lisp/subr.el
--- a/lisp/subr.el	Sat Jul 31 15:43:26 2004 +0000
+++ b/lisp/subr.el	Sat Jul 31 15:45:30 2004 +0000
@@ -644,7 +644,11 @@
   "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'."
+and `down'.
+EVENT may be an event or an event type.  If EVENT is a symbol
+that has never been used in an event that has been read as input
+in the current Emacs session, then this function can return nil,
+even when EVENT actually has modifiers."
   (let ((type event))
     (if (listp type)
 	(setq type (car type)))
@@ -671,7 +675,10 @@
 
 (defun event-basic-type (event)
   "Return the basic type of the given event (all modifiers removed).
-The value is a printing character (not upper case) or a symbol."
+The value is a printing character (not upper case) or a symbol.
+EVENT may be an event or an event type.  If EVENT is a symbol
+that has never been used in an event that has been read as input
+in the current Emacs session, then this function may return nil."
   (if (consp event)
       (setq event (car event)))
   (if (symbolp event)