[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117409: * lisp/progmodes/idlw-shell.el (idlwave-she
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] trunk r117409: * lisp/progmodes/idlw-shell.el (idlwave-shell-make-temp-file): Optimize |
Date: |
Thu, 26 Jun 2014 06:28:16 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117409: * lisp/progmodes/idlw-shell.el (idlwave-shell-make-temp-file): Optimize,
Glenn Morris <=