diff options
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 037b978b6fb..abf979f6129 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -1,6 +1,6 @@ ;;; ffap.el --- find file (or url) at point -;; Copyright (C) 1995-1997, 2000-2015 Free Software Foundation, Inc. +;; Copyright (C) 1995-1997, 2000-2016 Free Software Foundation, Inc. ;; Author: Michelangelo Grigni <mic@mathcs.emory.edu> ;; Maintainer: emacs-devel@gnu.org @@ -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)))))))) |