Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 456:e7ef97881643 r21-2-43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-43
author cvs
date Mon, 13 Aug 2007 11:41:24 +0200
parents 576fb035e263
children 0784d089fdc9
comparison
equal deleted inserted replaced
455:5b97c1cd6ed0 456:e7ef97881643
252 (interactive) 252 (interactive)
253 nil) 253 nil)
254 254
255 ;; This is a grody hack of the same genotype as `advertised-undo'; if the 255 ;; This is a grody hack of the same genotype as `advertised-undo'; if the
256 ;; bindings of Backspace and C-h are the same, we want the menubar to claim 256 ;; bindings of Backspace and C-h are the same, we want the menubar to claim
257 ;; that `info' in invoked with `C-h i', not `BS i'. 257 ;; that `info' is invoked with `C-h i', not `BS i'.
258 258
259 (defun deprecated-help-command () 259 (defun deprecated-help-command ()
260 (interactive) 260 (interactive)
261 (if (eq 'help-command (key-binding "\C-h")) 261 (if (eq 'help-command (key-binding "\C-h"))
262 (setq unread-command-event (character-to-event ?\C-h)) 262 (setq unread-command-event (character-to-event ?\C-h))
1515 (let ((fn (function-at-point)) 1515 (let ((fn (function-at-point))
1516 (enable-recursive-minibuffers t) 1516 (enable-recursive-minibuffers t)
1517 val) 1517 val)
1518 (setq val (read-command 1518 (setq val (read-command
1519 (if fn (format "Where is command (default %s): " fn) 1519 (if fn (format "Where is command (default %s): " fn)
1520 "Where is command: "))) 1520 "Where is command: ")
1521 (and fn (symbol-name fn))))
1521 (list (if (equal (symbol-name val) "") 1522 (list (if (equal (symbol-name val) "")
1522 fn val) 1523 fn val)
1523 current-prefix-arg))) 1524 current-prefix-arg)))
1524 (let ((keys (where-is-internal definition))) 1525 (let ((keys (where-is-internal definition)))
1525 (if keys 1526 (if keys