branch: externals/auctex
commit 70029e017ead40de6459c1ade7a5242958c59899
Author: Ikumi Keita <ik...@ikumi.que.jp>
Commit: Ikumi Keita <ik...@ikumi.que.jp>
Fix preamble cache
* preview.el.in (preview-cache-preamble): Remove trash left when
preferring closure over backquote+lambda.
(preview-gs-flag-error): Replace `str' with `string' for clarity;
`str' is used again in the clause just after the one in question.
---
preview.el.in | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/preview.el.in b/preview.el.in
index efe6603..1adf2b2 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -1324,7 +1324,7 @@ Try \\[ps-run-start] \\[ps-run-buffer] and \
(file-relative-name
(car (nth 1 filenames)))))
(ps-open
- (let ((str
+ (let ((string
(concat
(mapconcat #'shell-quote-argument
(append (list
@@ -1336,7 +1336,7 @@ Try \\[ps-run-start] \\[ps-run-buffer] and \
preview-gs-init-string
(aref (overlay-get ov 'queued) 1)
err)))
- (lambda () (interactive "@") (preview-mouse-open-error str))))
+ (lambda () (interactive "@") (preview-mouse-open-error string))))
(str
(preview-make-clickable
nil
@@ -4015,7 +4015,7 @@ If FORMAT-CONS is non-nil, a previous format may get
reused."
command
format-cons)
(preview-format-kill format-cons))
- (delete-file ',dump-file))
+ (delete-file dump-file))
(error (preview-log-error err "Dumping" process)))
(preview-reraise-error process)))))))
