diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-04 14:22:41 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-04 14:30:21 +0200 |
commit | 280bdc06cefa6e72e91c9da362770452d9bbbbd4 (patch) | |
tree | 45d71339d206b3957bfa52617449f5dbaeb0b9f8 /lisp/progmodes/idlw-shell.el | |
parent | 4df55f8f2fc5f73dec77582a03f1cc3c849c4836 (diff) | |
download | emacs-280bdc06cefa6e72e91c9da362770452d9bbbbd4.tar.gz |
Remove XEmacs compat code from idlw-shell.el
* lisp/progmodes/idlw-shell.el (idlwave-shell-make-temp-file):
Make into obsolete alias.
(idlwave-shell-temp-file): Adjust callers.
Diffstat (limited to 'lisp/progmodes/idlw-shell.el')
-rw-r--r-- | lisp/progmodes/idlw-shell.el | 29 |
1 files changed, 4 insertions, 25 deletions
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index e4f46bf8825..dde51b355e5 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -577,38 +577,17 @@ TYPE is either 'pro' or 'rinfo', and `idlwave-shell-temp-pro-file' or ((eq type 'rinfo) (or idlwave-shell-temp-rinfo-save-file (setq idlwave-shell-temp-rinfo-save-file - (idlwave-shell-make-temp-file idlwave-shell-temp-pro-prefix)))) + (make-temp-file idlwave-shell-temp-pro-prefix)))) ((eq type 'pro) (or idlwave-shell-temp-pro-file (setq idlwave-shell-temp-pro-file - (idlwave-shell-make-temp-file idlwave-shell-temp-pro-prefix)))) + (make-temp-file idlwave-shell-temp-pro-prefix)))) (t (error "Wrong argument (idlwave-shell-temp-file): %s" (symbol-name type))))) -(defun idlwave-shell-make-temp-file (prefix) - "Create a temporary file." - (if (featurep 'emacs) - (make-temp-file prefix) - (if (fboundp 'make-temp-file) - (make-temp-file prefix) - (let (file - (temp-file-dir (if (boundp 'temporary-file-directory) - temporary-file-directory - "/tmp"))) - (while (condition-case () - (progn - (setq file - (make-temp-name - (expand-file-name prefix temp-file-dir))) - (write-region "" nil file nil 'silent nil 'excl) - nil) - (file-already-exists t)) - ;; the file was somehow created by someone else between - ;; `make-temp-name' and `write-region', let's try again. - nil) - file)))) - +(define-obsolete-function-alias 'idlwave-shell-make-temp-file + #'make-temp-file "27.1") (defvar idlwave-shell-dirstack-query "cd,current=___cur & print,___cur" "Command used by `idlwave-shell-resync-dirs' to query IDL for |