[Emacs-diffs] trunk r115562: lisp/gnus/mm-util.el (mm-make-temp-file): Alias to make-temp-file for modern Emacsen

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 115562
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2013-12-17 10:12:07 +0000
message:
  lisp/gnus/mm-util.el (mm-make-temp-file): Alias to make-temp-file for modern 
Emacsen
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/mm-util.el           mmutil.el-20091113204419-o5vbwnq5f7feedwu-1974

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-12-08 23:11:14 +0000
+++ b/lisp/gnus/ChangeLog       2013-12-17 10:12:07 +0000
@@ -1,3 +1,8 @@
+2013-12-17  Katsumi Yamaoka  <address@hidden>
+
+       * mm-util.el (mm-make-temp-file):
+       Alias to make-temp-file for modern Emacsen.
+
 2013-12-08  Katsumi Yamaoka  <address@hidden>
 
        * gnus-msg.el (gnus-setup-message): Fix the type of argument passed to

=== modified file 'lisp/gnus/mm-util.el'
--- a/lisp/gnus/mm-util.el      2013-09-17 23:49:48 +0000
+++ b/lisp/gnus/mm-util.el      2013-12-17 10:12:07 +0000
@@ -1382,13 +1382,12 @@
 ;; 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.