diff options
| author | Richard M. Stallman | 1997-07-28 05:26:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-28 05:26:38 +0000 |
| commit | 375e0047f80ee036e95b9b2754bf83b65684fd22 (patch) | |
| tree | 082cc7de4f6da73739aa7e1775e8f1892317acff | |
| parent | 4cb46737eb5519767cfafde8d89e33329f55cff0 (diff) | |
| download | emacs-375e0047f80ee036e95b9b2754bf83b65684fd22.tar.gz emacs-375e0047f80ee036e95b9b2754bf83b65684fd22.zip | |
(prefer-coding-system): Fix doc, prompt.
| -rw-r--r-- | lisp/international/mule-util.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 28a9c916e4b..45b5c1330b0 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el | |||
| @@ -320,7 +320,8 @@ or one is an alias of the other." | |||
| 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)) |