diff options
| author | Richard M. Stallman | 1998-07-06 22:41:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-07-06 22:41:48 +0000 |
| commit | 02fd229c46d46605a831e1b5e8a34c6eedb03a85 (patch) | |
| tree | 53a8e1b9466f6f469652715f124fd43cbfa44a98 | |
| parent | f71599f4b4c0f081688f61f0ee4547edce82edd0 (diff) | |
| download | emacs-02fd229c46d46605a831e1b5e8a34c6eedb03a85.tar.gz emacs-02fd229c46d46605a831e1b5e8a34c6eedb03a85.zip | |
(tex-delete-last-temp-files): Use file-name-sans-extensions.
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 43447bcc7ab..58b7f266fcb 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -1045,7 +1045,9 @@ If NOT-ALL is non-nil, save the `.dvi' file." | |||
| 1045 | (let* ((dir (file-name-directory tex-last-temp-file)) | 1045 | (let* ((dir (file-name-directory tex-last-temp-file)) |
| 1046 | (list (and (file-directory-p dir) | 1046 | (list (and (file-directory-p dir) |
| 1047 | (file-name-all-completions | 1047 | (file-name-all-completions |
| 1048 | (file-name-nondirectory tex-last-temp-file) dir)))) | 1048 | (file-name-sans-extension |
| 1049 | (file-name-nondirectory tex-last-temp-file)) | ||
| 1050 | dir)))) | ||
| 1049 | (while list | 1051 | (while list |
| 1050 | (if not-all | 1052 | (if not-all |
| 1051 | (and | 1053 | (and |