[Emacs-diffs] trunk r117409: * lisp/progmodes/idlw-shell.el (idlwave-shell-make-temp-file): Optimize

[Glenn Morris]

------------------------------------------------------------
revno: 117409
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2014-06-25 23:28:04 -0700
message:
  * lisp/progmodes/idlw-shell.el (idlwave-shell-make-temp-file): Optimize
  away code unneeded on any modern Emacs.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/idlw-shell.el   
idlwshell.el-20091113204419-o5vbwnq5f7feedwu-1739

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-26 06:24:56 +0000
+++ b/lisp/ChangeLog    2014-06-26 06:28:04 +0000
@@ -1,5 +1,8 @@
 2014-06-26  Glenn Morris  <address@hidden>
 
+       * progmodes/idlw-shell.el (idlwave-shell-make-temp-file):
+       Optimize away code unneeded on any modern Emacs.
+
        * emacs-lisp/authors.el: Move to ../admin.
 
        * emacs-lisp/ert.el (ert-summarize-tests-batch-and-exit): New.

=== modified file 'lisp/progmodes/idlw-shell.el'
--- a/lisp/progmodes/idlw-shell.el      2014-01-06 23:34:05 +0000
+++ b/lisp/progmodes/idlw-shell.el      2014-06-26 06:28:04 +0000
@@ -590,27 +590,28 @@
 
 (defun idlwave-shell-make-temp-file (prefix)
   "Create a temporary file."
-  ; Hard coded make-temp-file for Emacs<21
-  (if (fboundp 'make-temp-file)
+  (if (featurep 'emacs)
       (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)))
-                   (if (featurep 'xemacs)
-                      (write-region "" nil file nil 'silent nil)
-                    (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)))
+    (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)))
+                    (if (featurep 'xemacs)
+                        (write-region "" nil file nil 'silent nil)
+                      (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))))
 
 
 (defvar idlwave-shell-dirstack-query "cd,current=___cur & print,___cur"