diff options
| author | Chong Yidong | 2008-12-20 07:20:32 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-12-20 07:20:32 +0000 |
| commit | 1aa956a1e24407519d24b4dd0ff91ac52c267f86 (patch) | |
| tree | ebea0fcf10ee0678491817a82d04aa12313ccf9b /lisp | |
| parent | 6bc149365b8ad488bff132fa7ba4d3e61d087f9f (diff) | |
| download | emacs-1aa956a1e24407519d24b4dd0ff91ac52c267f86.tar.gz emacs-1aa956a1e24407519d24b4dd0ff91ac52c267f86.zip | |
(mode-line-eol-desc): Use assoc to query mode-line-eol-desc-cache.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/bindings.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 560df38e01d..245050dab71 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -146,7 +146,7 @@ corresponding to the mode line clicked." | |||
| 146 | (defun mode-line-eol-desc () | 146 | (defun mode-line-eol-desc () |
| 147 | (let* ((eol (coding-system-eol-type buffer-file-coding-system)) | 147 | (let* ((eol (coding-system-eol-type buffer-file-coding-system)) |
| 148 | (mnemonic (coding-system-eol-type-mnemonic buffer-file-coding-system)) | 148 | (mnemonic (coding-system-eol-type-mnemonic buffer-file-coding-system)) |
| 149 | (desc (assq eol mode-line-eol-desc-cache))) | 149 | (desc (assoc eol mode-line-eol-desc-cache))) |
| 150 | (if (and desc (eq (cadr desc) mnemonic)) | 150 | (if (and desc (eq (cadr desc) mnemonic)) |
| 151 | (cddr desc) | 151 | (cddr desc) |
| 152 | (if desc (setq mode-line-eol-desc-cache nil)) ;Flush the cache if stale. | 152 | (if desc (setq mode-line-eol-desc-cache nil)) ;Flush the cache if stale. |