Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 369:1d62742628b6 r21-1-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-14
author cvs
date Mon, 13 Aug 2007 11:01:51 +0200
parents 8e84bee8ddd0
children cc15677e0335
comparison
equal deleted inserted replaced
368:397a7324211a 369:1d62742628b6
254 (interactive) 254 (interactive)
255 nil) 255 nil)
256 256
257 ;; This is a grody hack of the same genotype as `advertised-undo'; if the 257 ;; This is a grody hack of the same genotype as `advertised-undo'; if the
258 ;; bindings of Backspace and C-h are the same, we want the menubar to claim 258 ;; bindings of Backspace and C-h are the same, we want the menubar to claim
259 ;; that `info' in invoked with `C-h i', not `BS i'. 259 ;; that `info' is invoked with `C-h i', not `BS i'.
260 260
261 (defun deprecated-help-command () 261 (defun deprecated-help-command ()
262 (interactive) 262 (interactive)
263 (if (eq 'help-command (key-binding "\C-h")) 263 (if (eq 'help-command (key-binding "\C-h"))
264 (setq unread-command-event (character-to-event ?\C-h)) 264 (setq unread-command-event (character-to-event ?\C-h))