diff options
| author | Glenn Morris <rgm@gnu.org> | 2016-01-08 16:28:09 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-01-08 16:28:09 -0500 |
| commit | 2a9532d592757dd24e8ac1b4c52d268d0e316464 (patch) | |
| tree | 8b28f8486609b4acd1e31c55f477462cf7961c13 /lisp | |
| parent | 1a6b0846b5fbf08aa4288ae9e47c59cfca30459f (diff) | |
| download | emacs-2a9532d592757dd24e8ac1b4c52d268d0e316464.tar.gz | |
* lisp/ffap.el (ffap-latex-mode): Avoid free variable.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ffap.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 543b3b2e0b7..36727b3747d 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)))))))) |