diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-21 22:38:51 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-21 22:38:51 +0200 |
commit | 26f0f938f46b04482a3611f058c0f9fd646a260e (patch) | |
tree | 4be279e79ce3ca77880c710925548f9a3f8ea6b5 | |
parent | bb4b0d7efc0d5d789f16a4e545ad3a5e55bc9476 (diff) | |
download | org-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.el | 13 |
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) |