X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmm-util.el;h=da0d2a8d8472c3a3b308ba056b8f6b79943489af;hb=b74fac078f05fa78c65ef6ac22a644331120f096;hp=ff78b5c8d1e4d8b2e0a8169f6ddfe8a66d7745a6;hpb=98cbd721635bcd15d737178124a21024be34fb31;p=elisp%2Fgnus.git-

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index ff78b5c..da0d2a8 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -114,7 +114,22 @@
 			       (make-directory file))
 			   file)))
      (insert-byte . insert-char)
-     (multibyte-char-to-unibyte . identity))))
+     (multibyte-char-to-unibyte . identity)
+     (special-display-p
+      . (lambda (buffer-name)
+	  "Returns non-nil if a buffer named BUFFER-NAME gets a special frame."
+	  (and special-display-function
+	       (or (and (member buffer-name special-display-buffer-names) t)
+		   (cdr (assoc buffer-name special-display-buffer-names))
+		   (catch 'return
+		     (dolist (elem special-display-regexps)
+		       (and (stringp elem)
+			    (string-match elem buffer-name)
+			    (throw 'return t))
+		       (and (consp elem)
+			    (stringp (car elem))
+			    (string-match (car elem) buffer-name)
+			    (throw 'return (cdr elem))))))))))))
 
 (eval-and-compile
   (defalias 'mm-char-or-char-int-p