summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-06-21 22:38:51 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-06-21 22:38:51 +0200
commit26f0f938f46b04482a3611f058c0f9fd646a260e (patch)
tree4be279e79ce3ca77880c710925548f9a3f8ea6b5
parentbb4b0d7efc0d5d789f16a4e545ad3a5e55bc9476 (diff)
downloadorg-mode-26f0f938f46b04482a3611f058c0f9fd646a260e.tar.gz
org-info: Use lexical binding
* lisp/org-info.el (org-info-store-link): Small refactoring.
-rw-r--r--lisp/org-info.el13
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/org-info.el b/lisp/org-info.el
index 7527ab4..9e8fde0 100644
--- a/lisp/org-info.el
+++ b/lisp/org-info.el
@@ -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)