# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 896735443 0
# Node ID 0c5b61cb97c0a592d7c7d537e719bcde9f686469
# Parent  4c3c4ae02b77d4e68920885416779038e9bc71f3
(event-apply-alt-modifier, etc): Doc fixes.

diff -r 4c3c4ae02b77 -r 0c5b61cb97c0 lisp/simple.el
--- a/lisp/simple.el	Mon Jun 01 21:08:28 1998 +0000
+++ b/lisp/simple.el	Mon Jun 01 21:10:43 1998 +0000
@@ -3849,16 +3849,28 @@
 ;; to the following event.
 
 (defun event-apply-alt-modifier (ignore-prompt)
+  "Add the Alt modifier to the following event.
+For example, type \\[event-apply-alt-modifier] & to enter Alt-&."
   (vector (event-apply-modifier (read-event) 'alt 22 "A-")))
 (defun event-apply-super-modifier (ignore-prompt)
+  "Add the Super modifier to the following event.
+For example, type \\[event-apply-super-modifier] & to enter Super-&."
   (vector (event-apply-modifier (read-event) 'super 23 "s-")))
 (defun event-apply-hyper-modifier (ignore-prompt)
+  "Add the Hyper modifier to the following event.
+For example, type \\[event-apply-hyper-modifier] & to enter Hyper-&."
   (vector (event-apply-modifier (read-event) 'hyper 24 "H-")))
 (defun event-apply-shift-modifier (ignore-prompt)
+  "Add the Shift modifier to the following event.
+For example, type \\[event-apply-shift-modifier] & to enter Shift-&."
   (vector (event-apply-modifier (read-event) 'shift 25 "S-")))
 (defun event-apply-control-modifier (ignore-prompt)
+  "Add the Ctrl modifier to the following event.
+For example, type \\[event-apply-control-modifier] & to enter Ctrl-&."
   (vector (event-apply-modifier (read-event) 'control 26 "C-")))
 (defun event-apply-meta-modifier (ignore-prompt)
+  "Add the Meta modifier to the following event.
+For example, type \\[event-apply-meta-modifier] & to enter Meta-&."
   (vector (event-apply-modifier (read-event) 'meta 27 "M-")))
 
 (defun event-apply-modifier (event symbol lshiftby prefix)