From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.help Subject: Re: Restricting 'add-hook to a specific file extension Date: Mon, 27 Feb 2006 09:42:30 -0700 Message-ID: References: <20060225234001.GC9500@johnsons-web.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1141404987 9887 80.91.229.2 (3 Mar 2006 16:56:27 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 3 Mar 2006 16:56:27 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Mar 03 17:56:25 2006 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FFDYS-0003ZT-Kf for geh-help-gnu-emacs@m.gmane.org; Fri, 03 Mar 2006 17:55:00 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FFDYQ-0000tg-MN for geh-help-gnu-emacs@m.gmane.org; Fri, 03 Mar 2006 11:54:58 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FEjJO-0000Wp-D0 for help-gnu-emacs@gnu.org; Thu, 02 Mar 2006 03:37:27 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1FEjJG-0000U1-BU for help-gnu-emacs@gnu.org; Thu, 02 Mar 2006 03:37:22 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FDlV6-0005KS-Nk for help-gnu-emacs@gnu.org; Mon, 27 Feb 2006 11:45:34 -0500 Original-Received: from [80.91.229.2] (helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1FDlVn-00089M-93 for help-gnu-emacs@gnu.org; Mon, 27 Feb 2006 11:46:15 -0500 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1FDlTv-0006fJ-1i for help-gnu-emacs@gnu.org; Mon, 27 Feb 2006 17:44:19 +0100 Original-Received: from 207.167.42.60 ([207.167.42.60]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 27 Feb 2006 17:44:19 +0100 Original-Received: from ihs_4664 by 207.167.42.60 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 27 Feb 2006 17:44:19 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-To: help-gnu-emacs@gnu.org Original-Lines: 26 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: 207.167.42.60 User-Agent: Mozilla Thunderbird 0.9 (X11/20041105) X-Accept-Language: en-us, en In-Reply-To: <20060225234001.GC9500@johnsons-web.com> X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:33485 Archived-At: Tim Johnson wrote: > Is there a way to restrict 'add-hook to a specific file extension? > > Below is code from my .emacs: > > (require 'newlisp-mode++) ;; uses 'add-hook to extend 'scheme-mode > (add-to-list 'auto-mode-alist '("\\.lsp\\'" . scheme-mode)) > (autoload 'scheme-mode "scheme" "Turn on scheme mode" t) > (add-hook 'scheme-mode-hook 'turn-on-font-lock) > > I only want 'newlisp-mode++ to be used when the file extension is ".lsp". If > the file extension is ".scm", I would want 'scheme-mode, but I would *not* want > the code from 'newlisp-mode++ to take effect. > > One solution is derived-mode, but I've had no luck with it. For the time being > (until I've had another 6 months or so of elisp under my belt), is there a way > to restrict the add-hook action to only a file with a .lsp extension? (add-hook 'scheme-mode-hook (lambda () (when (string-match "\\.lsp\\'" buffer-file-name) ;; do something here ))) -- Kevin Rodgers