Index: emacs/lisp/help.el
diff -c emacs/lisp/help.el:1.280 emacs/lisp/help.el:1.281
*** emacs/lisp/help.el:1.280 Wed Apr 13 09:16:02 2005
--- emacs/lisp/help.el Wed May 4 14:31:45 2005
***************
*** 611,616 ****
--- 611,617 ----
If non-nil UNTRANSLATED is a vector of the untranslated events.
It can also be a number in which case the untranslated events from
the last key hit are used."
+ ;; UP-EVENT is the up-event that was discarded by reading KEY, or nil.
(interactive "kDescribe key: \np\nU")
(if (numberp untranslated)
(setq untranslated (this-single-command-raw-keys)))
***************
*** 634,640 ****
;; Don't bother user with strings from (e.g.) the select-paste menu.
(if (stringp (aref key (1- (length key))))
(aset key (1- (length key)) "(any string)"))
! (if (stringp (aref untranslated (1- (length untranslated))))
(aset untranslated (1- (length untranslated))
"(any string)"))
(with-output-to-temp-buffer (help-buffer)
--- 635,642 ----
;; Don't bother user with strings from (e.g.) the select-paste menu.
(if (stringp (aref key (1- (length key))))
(aset key (1- (length key)) "(any string)"))
! (if (and untranslated
! (stringp (aref untranslated (1- (length untranslated)))))
(aset untranslated (1- (length untranslated))
"(any string)"))
(with-output-to-temp-buffer (help-buffer)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
