Re: Restricting 'add-hook to a specific file extension

[Kevin Rodgers]

Tim Johnson wrote:
> Here's a snippet showing the conditional: (only slightly tested)
> (add-hook 'scheme-mode-hook
>              (lambda ()
>              (if (string-match                           ;; case 
insensitive
>                    ".LSP"
>                    (upcase(current-buffer-name))         ;; force 
upper case
>                    (- (length (current-buffer-name)) 4)) ;; end of name?
>              ;; code follows
>              ()
>   ))) ;; end 'add-hook

Here's a better way to match the file name:

(add-hook 'scheme-mode-hook
          (lambda ()
            (let ((case-fold-search nil))
              (if (string-match "\\.LSP\\'" buffer-file-name)
                  ;; code follows
                  ()
                )))) ;; end 'add-hook

--
Kevin