[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))))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 2a9532d: * lisp/ffap.el (ffap-latex-mode): Avoid free variable.,
Glenn Morris <=