(Info-copy-current-node-name): New function.

(Info-mode-menu): Add it to the menu.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f6e1a0b58c023426cf84210d49f2858495e2e485..084022ba6a14d32e0da80a20610390d8ed62a680 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-15  Miles Bader  <miles@gnu.org>
+
+       * info.el (Info-copy-current-node-name): New function.
+       (Info-mode-menu): Add it to the menu.
+
 2001-02-14  Richard M. Stallman  <rms@theobromine.ai.mit.edu>
 
        * international/mule-cmds.el (toggle-input-method): Doc fix.

diff --git a/lisp/info.el b/lisp/info.el
index b1a1faa4cea273e306427a4d95e5844f29afd378..48af18ec6a45eaf12e654e4cf52478c5bff97d07 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1,6 +1,6 @@
 ;;; info.el --- info package for Emacs.
 
-;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software
+;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001 Free Software
 ;; Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -2094,6 +2094,8 @@ If no reference to follow, moves to the next node, or up if none."
      :help "Look for another occurrence of previous item"])
    ["Edit" Info-edit :help "Edit contents of this node"
     :active Info-enable-edit]
+   ["Copy Node Name" Info-copy-current-node-name
+    :help "Copy the name of the current node into the kill ring"]
    ["Exit" Info-exit :help "Stop reading Info"]))
 
 
@@ -2180,6 +2182,22 @@ If no reference to follow, moves to the next node, or up if none."
     ;; Try to avoid entering infinite beep mode in case of errors.
     (error (ding))))
 
+\f
+(defun Info-copy-current-node-name ()
+  "Put the name of the current info node into the kill ring.
+The name of the info file is prepended to the node name in parentheses."
+  (interactive)
+  (unless Info-current-node
+    (error "No current info node"))
+  (kill-new
+   (concat "("
+          (file-name-nondirectory
+           (if (stringp Info-current-file)
+               Info-current-file
+             (or buffer-file-name "")))
+          ")"
+          Info-current-node)))
+
 \f
 ;; Info mode is suitable only for specially formatted data.
 (put 'Info-mode 'mode-class 'special)