diff options
| author | Karl Heuer | 1998-06-01 03:01:30 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-06-01 03:01:30 +0000 |
| commit | 6e2c88407b6bde37780d0a6943dcba7758cb72b7 (patch) | |
| tree | ff5a8e8f833c065f7039ca07e0a0c6ce57ed6840 | |
| parent | 3d1ef62e409fc758f191a494eb7cdccf0d54d6b6 (diff) | |
| download | emacs-6e2c88407b6bde37780d0a6943dcba7758cb72b7.tar.gz emacs-6e2c88407b6bde37780d0a6943dcba7758cb72b7.zip | |
(coding-system-mnemonic): Don't crash if arg is nil.
| -rw-r--r-- | lisp/international/mule.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 438839479ba..b085b90b70f 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -364,10 +364,10 @@ of CODING-SYSTEM. See the function `make-coding-system' for more detail." | |||
| 364 | 364 | ||
| 365 | (defun coding-system-mnemonic (coding-system) | 365 | (defun coding-system-mnemonic (coding-system) |
| 366 | "Return the mnemonic character of CODING-SYSTEM. | 366 | "Return the mnemonic character of CODING-SYSTEM. |
| 367 | A mnemonic character of a coding system is used in mode line | 367 | The mnemonic character of a coding system is used in mode line |
| 368 | to indicate the coding system." | 368 | to indicate the coding system. If the arg is nil, return ?-." |
| 369 | (or (aref (coding-system-spec coding-system) coding-spec-mnemonic-idx) | 369 | (let ((spec (coding-system-spec coding-system))) |
| 370 | ?-)) | 370 | (if spec (aref spec coding-spec-mnemonic-idx) ?-))) |
| 371 | 371 | ||
| 372 | (defun coding-system-doc-string (coding-system) | 372 | (defun coding-system-doc-string (coding-system) |
| 373 | "Return the documentation string for CODING-SYSTEM." | 373 | "Return the documentation string for CODING-SYSTEM." |