Commit 1aa956a1 authored by Chong Yidong's avatar Chong Yidong
Browse files

(mode-line-eol-desc): Use assoc to query mode-line-eol-desc-cache.

parent 6bc14936
...@@ -146,7 +146,7 @@ corresponding to the mode line clicked." ...@@ -146,7 +146,7 @@ corresponding to the mode line clicked."
(defun mode-line-eol-desc () (defun mode-line-eol-desc ()
(let* ((eol (coding-system-eol-type buffer-file-coding-system)) (let* ((eol (coding-system-eol-type buffer-file-coding-system))
(mnemonic (coding-system-eol-type-mnemonic buffer-file-coding-system)) (mnemonic (coding-system-eol-type-mnemonic buffer-file-coding-system))
(desc (assq eol mode-line-eol-desc-cache))) (desc (assoc eol mode-line-eol-desc-cache)))
(if (and desc (eq (cadr desc) mnemonic)) (if (and desc (eq (cadr desc) mnemonic))
(cddr desc) (cddr desc)
(if desc (setq mode-line-eol-desc-cache nil)) ;Flush the cache if stale. (if desc (setq mode-line-eol-desc-cache nil)) ;Flush the cache if stale.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment