Mercurial > emacs
comparison lisp/international/mule-util.el @ 19016:8f73ca5bbaeb
(prefer-coding-system): Fix doc, prompt.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 28 Jul 1997 05:26:38 +0000 |
| parents | 754d9d9e851e |
| children | 65112b3cc989 |
comparison
equal
deleted
inserted
replaced
| 19015:533ccefb099d | 19016:8f73ca5bbaeb |
|---|---|
| 318 (equal (coding-system-plist coding-system-1) | 318 (equal (coding-system-plist coding-system-1) |
| 319 (coding-system-plist coding-system-2)))) | 319 (coding-system-plist coding-system-2)))) |
| 320 | 320 |
| 321 ;;;###autoload | 321 ;;;###autoload |
| 322 (defun prefer-coding-system (coding-system) | 322 (defun prefer-coding-system (coding-system) |
| 323 (interactive "zPrefered coding system: ") | 323 "Add CODING-SYSTEM at the front of the priority list for automatic detection." |
| 324 (interactive "zPrefer coding system: ") | |
| 324 (if (not (and coding-system (coding-system-p coding-system))) | 325 (if (not (and coding-system (coding-system-p coding-system))) |
| 325 (error "Invalid coding system `%s'" coding-system)) | 326 (error "Invalid coding system `%s'" coding-system)) |
| 326 (let ((coding-category (coding-system-category coding-system)) | 327 (let ((coding-category (coding-system-category coding-system)) |
| 327 (parent (coding-system-parent coding-system))) | 328 (parent (coding-system-parent coding-system))) |
| 328 (if (not coding-category) | 329 (if (not coding-category) |