[Emacs-diffs] master 280bdc0 1/4: Remove XEmacs compat code from idlw-shell.el

[Lars Ingebrigtsen]

branch: master
commit 280bdc06cefa6e72e91c9da362770452d9bbbbd4
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/progmodes/idlw-shell.el | 29 ++++-------------------------
 1 file changed, 4 insertions(+), 25 deletions(-)

diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index e4f46bf..dde51b3 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