[gnus git] branch master updated: m0-7-265-ga10c76f =1= mm-util.el (mm-make-temp-file): Alias to make-temp-file for modern Emacsen

       via  a10c76f238f7e4b70251017389af96ba55953506 (commit)
      from  23c6fe6e28b8b6f356bae60e2fc773c41cd8b540 (commit)


- Log -----------------------------------------------------------------
commit a10c76f238f7e4b70251017389af96ba55953506
Author: Katsumi Yamaoka <[email protected]>
Date:   Tue Dec 17 10:11:55 2013 +0000

    mm-util.el (mm-make-temp-file): Alias to make-temp-file for modern Emacsen

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b747f7c..c69ba09 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-17  Katsumi Yamaoka  <[email protected]>
+
+	* mm-util.el (mm-make-temp-file):
+	Alias to make-temp-file for modern Emacsen.
+
 2013-12-08  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-msg.el (gnus-setup-message): Fix the type of argument passed to
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 5b0fd68..7ccf1c9 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -1382,13 +1382,12 @@ If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'."
 ;; It is not a MIME function, but some MIME functions use it.
 (if (and (fboundp 'make-temp-file)
 	 (ignore-errors
-	   (let ((def (symbol-function 'make-temp-file)))
-	     (and (byte-code-function-p def)
-		  (setq def (if (fboundp 'compiled-function-arglist)
-				;; XEmacs
-				(eval (list 'compiled-function-arglist def))
-			      (aref def 0)))
-		  (>= (length def) 4)
+	   (let ((def (if (fboundp 'compiled-function-arglist) ;; XEmacs
+			  (eval (list 'compiled-function-arglist
+				      (symbol-function 'make-temp-file)))
+			(require 'help-fns)
+			(help-function-arglist 'make-temp-file t))))
+	     (and (>= (length def) 4)
 		  (eq (nth 3 def) 'suffix)))))
     (defalias 'mm-make-temp-file 'make-temp-file)
   ;; Stolen (and modified for XEmacs) from Emacs 22.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/mm-util.el |   13 ++++++-------
 2 files changed, 11 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project