comparison lisp/international/mule.el @ 105772:fd7169a87c28

Fix typos in comments. * minibuf.c (Fall_completions): Fix typo in docstring.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 26 Oct 2009 15:18:03 +0000
parents a41e72b7e5fc
children ee32178b694f
comparison
equal deleted inserted replaced
105771:92f6698524cd 105772:fd7169a87c28
856 "Extract a value from CODING-SYSTEM's property list for property PROP. 856 "Extract a value from CODING-SYSTEM's property list for property PROP.
857 For compatibility with Emacs 20/21, this accepts old-style symbols 857 For compatibility with Emacs 20/21, this accepts old-style symbols
858 like `mime-charset' as well as the current style like `:mime-charset'." 858 like `mime-charset' as well as the current style like `:mime-charset'."
859 (or (plist-get (coding-system-plist coding-system) prop) 859 (or (plist-get (coding-system-plist coding-system) prop)
860 (if (not (keywordp prop)) 860 (if (not (keywordp prop))
861 ;; For backward compatiblity. 861 ;; For backward compatibility.
862 (if (eq prop 'ascii-incompatible) 862 (if (eq prop 'ascii-incompatible)
863 (not (plist-get (coding-system-plist coding-system) 863 (not (plist-get (coding-system-plist coding-system)
864 :ascii-compatible-p)) 864 :ascii-compatible-p))
865 (plist-get (coding-system-plist coding-system) 865 (plist-get (coding-system-plist coding-system)
866 (intern (concat ":" (symbol-name prop)))))))) 866 (intern (concat ":" (symbol-name prop))))))))
1021 flags 1021 flags
1022 properties 1022 properties
1023 eol-type) 1023 eol-type)
1024 "Define a new coding system CODING-SYSTEM (symbol). 1024 "Define a new coding system CODING-SYSTEM (symbol).
1025 This function is provided for backward compatibility." 1025 This function is provided for backward compatibility."
1026 ;; For compatiblity with XEmacs, we check the type of TYPE. If it 1026 ;; For compatibility with XEmacs, we check the type of TYPE. If it
1027 ;; is a symbol, perhaps, this function is called with XEmacs-style 1027 ;; is a symbol, perhaps, this function is called with XEmacs-style
1028 ;; arguments. Here, try to transform that kind of arguments to 1028 ;; arguments. Here, try to transform that kind of arguments to
1029 ;; Emacs style. 1029 ;; Emacs style.
1030 (if (symbolp type) 1030 (if (symbolp type)
1031 (let ((args (transform-make-coding-system-args coding-system type 1031 (let ((args (transform-make-coding-system-args coding-system type