Mercurial > emacs
comparison lisp/info.el @ 4468:5e9224dac452
(Info-goto-emacs-command-node, Info-goto-emacs-key-command-node): Doc fix.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 06 Aug 1993 20:29:23 +0000 |
| parents | 25fb71fc2643 |
| children | 67810bbdfc9d |
comparison
equal
deleted
inserted
replaced
| 4467:1e8785572dd4 | 4468:5e9224dac452 |
|---|---|
| 1 ;;; info.el --- info package for Emacs. | 1 ;;; info.el --- info package for Emacs. |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985, 1986, 1992, 1993 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
| 6 ;; Keywords: help | 6 ;; Keywords: help |
| 7 | 7 |
| 8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
| 1417 where))) | 1417 where))) |
| 1418 where))) | 1418 where))) |
| 1419 | 1419 |
| 1420 ;;;###autoload | 1420 ;;;###autoload |
| 1421 (defun Info-goto-emacs-command-node (command) | 1421 (defun Info-goto-emacs-command-node (command) |
| 1422 "Go to the Info node in the Emacs manual for command COMMAND." | 1422 "Go to the Info node in the Emacs manual for command COMMAND. |
| 1423 The command is found by looking up in Emacs manual's Command Index." | |
| 1423 (interactive "CFind documentation for command: ") | 1424 (interactive "CFind documentation for command: ") |
| 1424 (or (commandp command) | 1425 (or (commandp command) |
| 1425 (signal 'wrong-type-argument (list 'commandp command))) | 1426 (signal 'wrong-type-argument (list 'commandp command))) |
| 1426 (let ((where (Info-find-emacs-command-nodes command))) | 1427 (let ((where (Info-find-emacs-command-nodes command))) |
| 1427 (if where | 1428 (if where |
| 1446 (error "Couldn't find documentation for %s." command)))) | 1447 (error "Couldn't find documentation for %s." command)))) |
| 1447 | 1448 |
| 1448 ;;;###autoload | 1449 ;;;###autoload |
| 1449 (defun Info-goto-emacs-key-command-node (key) | 1450 (defun Info-goto-emacs-key-command-node (key) |
| 1450 "Go to the Info node in the Emacs manual the command bound to KEY, a string. | 1451 "Go to the Info node in the Emacs manual the command bound to KEY, a string. |
| 1451 Interactively, if the binding is execute-extended-command, a command is read." | 1452 Interactively, if the binding is execute-extended-command, a command is read. |
| 1453 The command is found by looking up in Emacs manual's Command Index." | |
| 1452 (interactive "kFind documentation for key:") | 1454 (interactive "kFind documentation for key:") |
| 1453 (let ((command (key-binding key))) | 1455 (let ((command (key-binding key))) |
| 1454 (cond ((null command) | 1456 (cond ((null command) |
| 1455 (message "%s is undefined" (key-description key))) | 1457 (message "%s is undefined" (key-description key))) |
| 1456 ((and (interactive-p) | 1458 ((and (interactive-p) |