Merge pull request #969 from syohex/non-dotted-pair
Fix non dotted pair element issue
This commit is contained in:
commit
703f84ae86
1 changed files with 2 additions and 0 deletions
|
@ -183,6 +183,8 @@ The body of the advice is in BODY."
|
||||||
"Set buffer major mode according to `auto-mode-alist'."
|
"Set buffer major mode according to `auto-mode-alist'."
|
||||||
(let* ((name (buffer-name buffer))
|
(let* ((name (buffer-name buffer))
|
||||||
(mode (assoc-default name auto-mode-alist 'string-match)))
|
(mode (assoc-default name auto-mode-alist 'string-match)))
|
||||||
|
(when (and mode (consp mode))
|
||||||
|
(setq mode (car mode)))
|
||||||
(with-current-buffer buffer (if mode (funcall mode)))))
|
(with-current-buffer buffer (if mode (funcall mode)))))
|
||||||
|
|
||||||
;; highlight the current line
|
;; highlight the current line
|
||||||
|
|
Loading…
Reference in a new issue