emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-25 2a9532d: * lisp/ffap.el (ffap-latex-mode): Avoid


From: Glenn Morris
Subject: [Emacs-diffs] emacs-25 2a9532d: * lisp/ffap.el (ffap-latex-mode): Avoid free variable.
Date: Fri, 08 Jan 2016 21:28:12 +0000

branch: emacs-25
commit 2a9532d592757dd24e8ac1b4c52d268d0e316464
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/ffap.el (ffap-latex-mode): Avoid free variable.
---
 lisp/ffap.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 543b3b2..36727b3 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -974,14 +974,14 @@ out of NAME."
              (push (cons "" (cdr (assoc (match-string 0) ; i.e. 
"(TeX-current-macro)"
                                         preferred-suffix-rules)))
                    guess-rules))
-           (setq kpsewhich-args (mapcar (lambda (rule)
-                                          (concat (car rule) name (cdr rule)))
-                                        guess-rules))
            (with-temp-buffer
              (let ((process-environment (buffer-local-value
                                          'process-environment curbuf))
                    (exec-path (buffer-local-value 'exec-path curbuf)))
-               (apply #'call-process "kpsewhich"  nil  t  nil kpsewhich-args))
+               (apply #'call-process "kpsewhich" nil t nil
+                      (mapcar (lambda (rule)
+                                          (concat (car rule) name (cdr rule)))
+                                        guess-rules)))
              (when (< (point-min) (point-max))
                (buffer-substring (goto-char (point-min)) (point-at-eol))))))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]