From 70cf9f080345d82294297e74373a060f23a171a9 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 1 Jun 1998 21:10:43 +0000 Subject: [PATCH] (event-apply-alt-modifier, etc): Doc fixes. --- lisp/simple.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/simple.el b/lisp/simple.el index eb1f31ec450..45b68b65599 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3849,16 +3849,28 @@ select the completion near point.\n\n")) ;; 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) -- 2.39.2