Mercurial > emacs
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 |