org-info: Use lexical binding
* lisp/org-info.el (org-info-store-link): Small refactoring.
This commit is contained in:
parent
bb4b0d7efc
commit
26f0f938f4
1 changed files with 6 additions and 7 deletions
|
@ -1,4 +1,4 @@
|
|||
;;; org-info.el --- Support for links to Info nodes from within Org-Mode
|
||||
;;; org-info.el --- Support for Links to Info Nodes -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2004-2016 Free Software Foundation, Inc.
|
||||
|
||||
|
@ -47,12 +47,11 @@
|
|||
(defun org-info-store-link ()
|
||||
"Store a link to an Info file and node."
|
||||
(when (eq major-mode 'Info-mode)
|
||||
(let (link desc)
|
||||
(setq link (concat "info:"
|
||||
(file-name-nondirectory Info-current-file)
|
||||
"#" Info-current-node))
|
||||
(setq desc (concat (file-name-nondirectory Info-current-file)
|
||||
"#" Info-current-node))
|
||||
(let ((link (concat "info:"
|
||||
(file-name-nondirectory Info-current-file)
|
||||
"#" Info-current-node))
|
||||
(desc (concat (file-name-nondirectory Info-current-file)
|
||||
"#" Info-current-node)))
|
||||
(org-store-link-props :type "info" :file Info-current-file
|
||||
:node Info-current-node
|
||||
:link link :desc desc)
|
||||
|
|
Loading…
Reference in a new issue