mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Chong Yidong 2008-12-20 07:20:32 +00:00
parent 6bc149365b
commit 1aa956a1e2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/bindings.el
View File

@ -146,7 +146,7 @@ corresponding to the mode line clicked."
(defun mode-line-eol-desc ()
(let* ((eol (coding-system-eol-type 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))
(cddr desc)
(if desc (setq mode-line-eol-desc-cache nil)) ;Flush the cache if stale.