Merge pull request #969 from syohex/non-dotted-pair

Fix non dotted pair element issue
This commit is contained in:
Bozhidar Batsov 2016-02-13 09:07:21 +02:00
commit 703f84ae86

View file

@ -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