|
From: | Kevin Rodgers |
Subject: | Re: howto suffix based fill-column? |
Date: | Thu, 07 Aug 2003 12:12:23 -0600 |
User-agent: | Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 |
Joakim Hove wrote:
(defun set-fill-column () (if (string-equal (file-name-extension (buffer-file-name)) "eml") (setq fillĀcolumn 68) (setq fill-column 79))) (add-hook 'find-file-hooks 'set-fill-column)
What about the OP's request for text mode? I think this is a little cleaner: (setq auto-mode-alist (cons '("\\.eml\\'" . text-mode) auto-mode-alist)) (setq-default fill-column 79) (add-hook 'text-mode-hook (lambda () (if (string-equal (file-name-extension (buffer-file-name)) "eml") (setq fill-column 68)))) -- Kevin Rodgers
[Prev in Thread] | Current Thread | [Next in Thread] |