blob: a3c2fcd6f7a8ec8ec0f4d26f76d500d72b826d02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;;; +Info.el -*- lexical-binding: t; -*-
;;Copyright (C) 2022 Case Duckworth
;;; Code:
(require 'info)
(defun +Info-copy-current-node-name (&optional arg)
"Put the name of the current Info invocation intothe kill ring.
This is the same as `Info-copy-current-node-name', but with the
arg reversed."
(interactive "P" Info-mode)
(Info-copy-current-node-name (unless arg 0)))
(provide '+Info)
;;; +Info.el ends here
|
