From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: message@MailAndNews.com (Jari Aalto+mail.linux) Newsgroups: gmane.emacs.bugs Subject: [patch] 21.2 finder.el - run finder-mode-hook Date: Sun, 14 Sep 2003 20:35:58 +0300 Organization: Private Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1063560560 3512 80.91.224.253 (14 Sep 2003 17:29:20 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 14 Sep 2003 17:29:20 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Sep 14 19:29:18 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19yagX-00010E-01 for ; Sun, 14 Sep 2003 19:29:18 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.22) id 19yaff-0006VN-TB for geb-bug-gnu-emacs@m.gmane.org; Sun, 14 Sep 2003 13:28:23 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.22) id 19yafX-0006Sr-96 for bug-gnu-emacs@prep.ai.mit.edu; Sun, 14 Sep 2003 13:28:15 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.22) id 19yafV-0006SN-69 for bug-gnu-emacs@prep.ai.mit.edu; Sun, 14 Sep 2003 13:28:13 -0400 Original-Received: from [193.4.58.12] (helo=horus.isnic.is) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.22) id 19yafQ-0006Qs-9n for bug-gnu-emacs@prep.ai.mit.edu; Sun, 14 Sep 2003 13:28:09 -0400 Original-Received: from smtp32.kolumbus.fi (smtp32.kolumbus.fi [193.229.0.37]) by horus.isnic.is (8.12.9/8.12.9/isnic) with ESMTP id h8EHS390094010 for ; Sun, 14 Sep 2003 17:28:04 GMT (envelope-from news@phys-news1.kolumbus.fi) Original-Received: from news.kolumbus.fi (news.kolumbus.fi [193.229.0.31]) by smtp32.kolumbus.fi (8.12.9/8.12.4) with ESMTP id h8EHS0k4016919 for ; Sun, 14 Sep 2003 20:28:00 +0300 (EEST) Original-Received: (from news@localhost) by news.kolumbus.fi (8.11.6+Sun/8.11.6) id h8EHRxj14932 for gnu-emacs-bug@moderators.isc.org; Sun, 14 Sep 2003 20:27:59 +0300 (EEST) Original-To: gnu-emacs-bug@moderators.isc.org Original-Path: not-for-mail Original-Newsgroups: gnu.emacs.bug Original-Lines: 47 Original-NNTP-Posting-Host: a110t7.elisa.omakaista.fi Original-X-Trace: phys-news1.kolumbus.fi 1063560479 14685 81.197.3.110 (14 Sep 2003 17:27:59 GMT) Original-X-Complaints-To: abuse@kolumbus.fi Original-NNTP-Posting-Date: Sun, 14 Sep 2003 17:27:59 +0000 (UTC) User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/20.7 (windows-nt) (i386-*-nt5.0.2195) Cancel-Lock: sha1:QwXbuAkDywQc/Vr3M+pkLzTD8Uw= X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:5790 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:5790 A mode should run MODE-HOOK. Later we can add font lock to M-x finder-commentary. The patch if from Cygwin Emacs, which isn't updated to 21.3 yet. Jari 2003-09-14 Jari Aalto * finder.el (finder-mode-hook): New variable. (finder-mode): Run hook finder-mode-hook =================================================================== RCS file: RCS/finder.el,v retrieving revision 1.1 diff -bwu -r1.1 finder.el --- finder.el 2003-09-14 18:54:41+03 1.1 +++ finder.el 2003-09-14 18:56:16+03 @@ -41,6 +41,9 @@ (require 'lisp-mnt) (require 'finder-inf) +(defvar finder-mode-hook nil + "*Hook run when function `finder-mode' is called.") + ;; Local variable in finder buffer. (defvar finder-headmark) @@ -335,7 +338,8 @@ (setq mode-name "Finder") (setq major-mode 'finder-mode) (make-local-variable 'finder-headmark) - (setq finder-headmark nil)) + (setq finder-headmark nil) + (run-hooks 'finder-mode-hook)) (defun finder-summary () "Summarize basic Finder commands." -- http://tiny-tools.sourceforge.net/ Swatch @time http://www.mir.com.my/iTime/itime.htm http://www.ryanthiessen.com/swatch/resources.htm Use Licenses! http://www.linuxjournal.com/article.php?sid=6225 Which Licence? http://www.linuxjournal.com/article.php?sid=4825 OSI Licences http://www.opensource.org/licenses/