mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00
Code Issues Projects Releases Wiki Activity

Remove XEmacs compat code from idlw-shell.el

Browse source 
* lisp/progmodes/idlw-shell.el (idlwave-shell-make-temp-file):
Make into obsolete alias.
(idlwave-shell-temp-file): Adjust callers.
This commit is contained in:
Lars Ingebrigtsen 2019-10-04 14:22:41 +02:00
parent 4df55f8f2f
commit 280bdc06ce
1 changed files with 4 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lisp/progmodes/idlw-shell.el
View file

@ -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