From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Matthias Meulien Newsgroups: gmane.emacs.help Subject: Re: Bug in elide-head Date: 07 Dec 2002 01:09:16 +0100 Organization: ...!#$@~? Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1039286166 24468 80.91.224.249 (7 Dec 2002 18:36:06 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sat, 7 Dec 2002 18:36:06 +0000 (UTC) Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18Kjo5-0006MR-00 for ; Sat, 07 Dec 2002 19:36:05 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18KjBp-0006cR-00 for gnu-help-gnu-emacs@m.gmane.org; Sat, 07 Dec 2002 12:56:33 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!fr.clara.net!heighliner.fr.clara.net!proxad.net!feeder2-1.proxad.net!news2-1.free.fr!not-for-mail Mail-Copies-To: never Original-Newsgroups: gnu.emacs.help User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 Original-Lines: 46 Original-NNTP-Posting-Date: 07 Dec 2002 11:20:47 MET Original-NNTP-Posting-Host: 62.147.134.202 Original-X-Trace: 1039256447 news2-1.free.fr 2151 62.147.134.202 Original-X-Complaints-To: abuse@proxad.net Original-Xref: shelby.stanford.edu gnu.emacs.help:107832 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:4392 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:4392 Here is a patch. *** /tmp/elide-head.el Sat Dec 7 01:08:35 2002 --- /tmp/elide-head.el2851wuw Sat Dec 7 01:08:35 2002 *************** *** 80,90 **** This is suitable as an entry on `find-file-hooks' or appropriate mode hooks." (interactive "P") - (add-to-invisibility-spec '(elide-head . t)) (if arg ! (progn ! (elide-head-show) ! (remove-from-invisibility-spec '(elide-head . t))) (save-excursion (save-restriction (let ((rest elide-head-headers-to-hide) --- 80,87 ---- This is suitable as an entry on `find-file-hooks' or appropriate mode hooks." (interactive "P") (if arg ! (elide-head-show) (save-excursion (save-restriction (let ((rest elide-head-headers-to-hide) *************** *** 107,113 **** (if (overlayp elide-head-overlay) (move-overlay elide-head-overlay (point-marker) end) (setq elide-head-overlay (make-overlay (point-marker) end))) ! (overlay-put elide-head-overlay 'invisible 'elide-head) (overlay-put elide-head-overlay 'intangible t) (overlay-put elide-head-overlay 'evaporate t) (overlay-put elide-head-overlay 'after-string "..."))))))) --- 104,110 ---- (if (overlayp elide-head-overlay) (move-overlay elide-head-overlay (point-marker) end) (setq elide-head-overlay (make-overlay (point-marker) end))) ! (overlay-put elide-head-overlay 'invisible t) (overlay-put elide-head-overlay 'intangible t) (overlay-put elide-head-overlay 'evaporate t) (overlay-put elide-head-overlay 'after-string "..."))))))) -- Matthias