[Emacs-diffs] Changes to emacs/lisp/help.el

[Richard M . Stallman]

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)