Re: Can one modify a variable definition in a major mode depending on buffer name?

[Emanuel Berg]

Tom Browder wrote:

> I think I can do that, with some
> experimentation, but can anyone confirm that
> it's reasonably possible?

;;; Perl
(defvar perl-propaganda)
(setq perl-propaganda "There's more than one way to do it!")

;; (setq perl-mode-hook nil)
(defun perl-mode-hook-f ()
  (let*((filename       (buffer-name))
        (filename-parts (split-string filename "\\."))
        (extention      (cadr filename-parts) ))
    (when (string-equal extention "nqp")
      (setq-local perl-propaganda "Do it today, in a different way!") )))
(add-hook 'perl-mode-hook #'perl-mode-hook-f)

(let ((modes (list
     '("\\.nqp\\'" . perl-mode)
     '("\\.tex\\'" . latex-mode)
     '("\\.php\\'" . html-mode)
     ;; etc.
    )))
  (setf auto-mode-alist (nconc modes auto-mode-alist)) )

-- 
underground experts united .... http://user.it.uu.se/~embe8573
Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic
                   - so far: 64 Blogomatic articles -