procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Katsumi Yamaoka 2013-12-17 10:12:07 +00:00
parent e914544431
commit cb8b0736d5
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2013-12-17 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-util.el (mm-make-temp-file):
Alias to make-temp-file for modern Emacsen.
2013-12-08 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-setup-message): Fix the type of argument passed to

13
lisp/gnus/mm-util.el
View file

@ -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.