comparison lisp/gnus/mm-util.el @ 100516:0363096dbcf8

Merge from gnus--devo--0 Revision: [e-mail]/emacs--devo--0--patch-1505

100515:ce4ce31aa65a

   (lambda (elem)
     (let ((nfunc (intern (format "mm-%s" (car elem)))))
       (if (fboundp (car elem))
	   (defalias nfunc (car elem))
	 (defalias nfunc (cdr elem)))))
   '((coding-system-list . ignore)
     (char-int . identity)
     (coding-system-equal . equal)
     (annotationp . ignore)
     (set-buffer-file-coding-system . ignore)
     (read-charset
      . (lambda (prompt)
	  "Return a charset."
	  (intern
	   (completing-read
	    prompt
	    (mapcar (lambda (e) (list (symbol-name (car e))))
		    mm-mime-mule-charset-alist)
	    nil t))))
     (subst-char-in-string
      . (lambda (from to string &optional inplace)
	  ;; stolen (and renamed) from nnheader.el
	  "Replace characters in STRING from FROM to TO.
	  Unless optional argument INPLACE is non-nil, return a new string."
	  (let ((string (if inplace string (copy-sequence string)))
		(len (length string))
		(idx 0))
	    ;; Replace all occurrences of FROM with TO.
	    (while (< idx len)
	      (when (= (aref string idx) from)
		(aset string idx to))
	      (setq idx (1+ idx)))
	    string)))
     (replace-in-string
      . (lambda (string regexp rep &optional literal)
	  "See `replace-regexp-in-string', only the order of args differs."
	  (replace-regexp-in-string regexp rep string nil literal)))
     (string-as-unibyte . identity)
     (string-make-unibyte . identity)
     ;; string-as-multibyte often doesn't really do what you think it does.
     ;; Example:
     ;;    (aref (string-as-multibyte "\201") 0) -> 129 (aka ?\201)

     (multibyte-string-p . ignore)
     (insert-byte . insert-char)
     (multibyte-char-to-unibyte . identity)
     (set-buffer-multibyte . ignore)
     (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
  (if (featurep 'xemacs)
      (if (featurep 'file-coding)
	  ;; Don't modify string if CODING-SYSTEM is nil.

    'identity)
   ((fboundp 'string-to-multibyte)
    'string-to-multibyte)
   (t
    (lambda (string)
      "Return a multibyte string with the same individual chars as string."
      (mapconcat
       (lambda (ch) (mm-string-as-multibyte (char-to-string ch)))
       string "")))))

(eval-and-compile

100516:0363096dbcf8

   (lambda (elem)
     (let ((nfunc (intern (format "mm-%s" (car elem)))))
       (if (fboundp (car elem))
	   (defalias nfunc (car elem))
	 (defalias nfunc (cdr elem)))))
   `((coding-system-list . ignore)
     (char-int . identity)
     (coding-system-equal . equal)
     (annotationp . ignore)
     (set-buffer-file-coding-system . ignore)
     (read-charset
      . ,(lambda (prompt)
	   "Return a charset."
	   (intern
	    (completing-read
	     prompt
	     (mapcar (lambda (e) (list (symbol-name (car e))))
		     mm-mime-mule-charset-alist)
	     nil t))))
     (subst-char-in-string
      . ,(lambda (from to string &optional inplace)
	   ;; stolen (and renamed) from nnheader.el
	   "Replace characters in STRING from FROM to TO.
	  Unless optional argument INPLACE is non-nil, return a new string."
	   (let ((string (if inplace string (copy-sequence string)))
		 (len (length string))
		 (idx 0))
	     ;; Replace all occurrences of FROM with TO.
	     (while (< idx len)
	       (when (= (aref string idx) from)
		 (aset string idx to))
	       (setq idx (1+ idx)))
	     string)))
     (replace-in-string
      . ,(lambda (string regexp rep &optional literal)
	   "See `replace-regexp-in-string', only the order of args differs."
	   (replace-regexp-in-string regexp rep string nil literal)))
     (string-as-unibyte . identity)
     (string-make-unibyte . identity)
     ;; string-as-multibyte often doesn't really do what you think it does.
     ;; Example:
     ;;    (aref (string-as-multibyte "\201") 0) -> 129 (aka ?\201)

     (multibyte-string-p . ignore)
     (insert-byte . insert-char)
     (multibyte-char-to-unibyte . identity)
     (set-buffer-multibyte . ignore)
     (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)))))))))
     (substring-no-properties
      . ,(lambda (string &optional from to)
	   "Return a substring of STRING, without text properties.
It starts at index FROM and ending before TO.
TO may be nil or omitted; then the substring runs to the end of STRING.
If FROM is nil or omitted, the substring starts at the beginning of STRING.
If FROM or TO is negative, it counts from the end.

With one argument, just copy STRING without its properties."
	   (setq string (substring string (or from 0) to))
	   (set-text-properties 0 (length string) nil string)
	   string)))))

(eval-and-compile
  (if (featurep 'xemacs)
      (if (featurep 'file-coding)
	  ;; Don't modify string if CODING-SYSTEM is nil.

    'identity)
   ((fboundp 'string-to-multibyte)
    'string-to-multibyte)
   (t
    (lambda (string)
      "Return a multibyte string with the same individual chars as STRING."
      (mapconcat
       (lambda (ch) (mm-string-as-multibyte (char-to-string ch)))
       string "")))))

(eval-and-compile