From ac143de0e0ec1e59b62865ddf884ae513ee371ba Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Wed, 30 Nov 2005 23:00:34 +0000 Subject: [PATCH] muse-latex2png: XEmacs compatibility. * lisp/muse-latex2png.el (latex2png-move2pubdir): Remove use of file-expand-wildcards, since it was a no-op. (latex2png): Fall back to a temporary directory variable that works with XEmacs. Thanks to Neilen Marais for the report and suggested fix. git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-280 --- ChangeLog | 16 ++++++++++++++++ lisp/muse-latex2png.el | 13 +++++++------ 2 files changed, 23 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 473f493..9effdfc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,22 @@ # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0 # +2005-11-30 23:00:34 GMT Michael Olson patch-280 + + Summary: + muse-latex2png: XEmacs compatibility. + Revision: + muse--main--1.0--patch-280 + + * lisp/muse-latex2png.el (latex2png-move2pubdir): Remove use of + file-expand-wildcards, since it was a no-op. + (latex2png): Fall back to a temporary directory variable that works + with XEmacs. Thanks to Neilen Marais for the report and suggested fix. + + modified files: + ChangeLog lisp/muse-latex2png.el + + 2005-11-21 21:14:20 GMT Michael Olson patch-279 Summary: diff --git a/lisp/muse-latex2png.el b/lisp/muse-latex2png.el index 263b936..48cd65f 100644 --- a/lisp/muse-latex2png.el +++ b/lisp/muse-latex2png.el @@ -54,10 +54,9 @@ Old files with PREFIX in the name are deleted." (if (and (file-exists-p file) (file-directory-p pubdir)) (progn - (let ((files (file-expand-wildcards (concat pubdir prefix "_*") t))) - (copy-file file (concat pubdir (file-name-nondirectory file)) t) - (delete-file file) - (concat "./latex/" (file-name-nondirectory file)))) + (copy-file file (concat pubdir (file-name-nondirectory file)) t) + (delete-file file) + (concat "./latex/" (file-name-nondirectory file))) (message "The latex folder does not exist!"))) (defun muse-publish-latex-tag (beg end attrs) @@ -94,8 +93,10 @@ Old files with PREFIX in the name are deleted." (if (null preamble) (setq preamble " ")) - (let ((texfile (concat temporary-file-directory prefix - "_" (format "%d" (abs (sxhash math))))) + (let ((texfile (concat (or (and (boundp 'temporary-file-directory) + temporary-file-directory) + temp-directory) + prefix "_" (format "%d" (abs (sxhash math))))) (oldcddir default-directory)) (with-temp-file (concat texfile ".tex") (insert (concat "\\documentclass{article} -- 2.11.4.GIT