From 26f0f938f46b04482a3611f058c0f9fd646a260e Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 21 Jun 2016 22:38:51 +0200 Subject: [PATCH] org-info: Use lexical binding * lisp/org-info.el (org-info-store-link): Small refactoring. --- lisp/org-info.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/org-info.el b/lisp/org-info.el index 7527ab4b2..9e8fde02c 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)