From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lute Kamstra Newsgroups: gmane.emacs.devel Subject: arch-tag lines in tutorials. Date: Mon, 11 Apr 2005 14:00:46 +0200 Message-ID: <878y3pldzl.fsf@xs4all.nl> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1113221484 14011 80.91.229.2 (11 Apr 2005 12:11:24 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 11 Apr 2005 12:11:24 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Apr 11 14:11:19 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DKxjm-00005z-4b for ged-emacs-devel@m.gmane.org; Mon, 11 Apr 2005 14:09:54 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DKxJs-00063i-QR for ged-emacs-devel@m.gmane.org; Mon, 11 Apr 2005 07:43:08 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DKxIv-0005Aj-2U for emacs-devel@gnu.org; Mon, 11 Apr 2005 07:42:09 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DKxIq-00058Z-Pw for emacs-devel@gnu.org; Mon, 11 Apr 2005 07:42:06 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DKxIq-000578-DB for emacs-devel@gnu.org; Mon, 11 Apr 2005 07:42:04 -0400 Original-Received: from [194.109.24.35] (helo=smtp-vbr15.xs4all.nl) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DKxcU-0004Hr-1n for emacs-devel@gnu.org; Mon, 11 Apr 2005 08:02:22 -0400 Original-Received: from pijl (a80-127-67-124.adsl.xs4all.nl [80.127.67.124]) by smtp-vbr15.xs4all.nl (8.12.11/8.12.11) with ESMTP id j3BC0kJp054782 for ; Mon, 11 Apr 2005 14:00:46 +0200 (CEST) (envelope-from Lute.Kamstra@xs4all.nl) Original-Received: from lute by pijl with local (Exim 3.36 #1 (Debian)) id 1DKxaw-0001CU-00 for ; Mon, 11 Apr 2005 14:00:46 +0200 Original-To: emacs-devel@gnu.org User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) Original-Lines: 43 X-Virus-Scanned: by XS4ALL Virus Scanner X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:35861 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:35861 What about deleting the arch-tag line when showing a tutorial? Lute. Index: lisp/help-fns.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/help-fns.el,v retrieving revision 1.66 diff -c -r1.66 help-fns.el *** lisp/help-fns.el 30 Mar 2005 22:50:17 -0000 1.66 --- lisp/help-fns.el 11 Apr 2005 11:58:03 -0000 *************** *** 1,7 **** ;;; help-fns.el --- Complex help functions ! ;; Copyright (C) 1985, 86, 93, 94, 98, 1999, 2000, 01, 02, 03, 2004 ! ;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help, internal --- 1,7 ---- ;;; help-fns.el --- Complex help functions ! ;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002, ! ;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help, internal *************** *** 64,69 **** --- 64,74 ---- (setq buffer-auto-save-file-name nil) (insert-file-contents (expand-file-name filename data-directory)) (hack-local-variables) + (goto-char (point-max)) + ;; Delete arch-tag line. + (when (search-backward "\n;;; arch-tag: " + (max (- (point-max) 3000) (point-min)) t) + (delete-region (point) (line-end-position 2))) (goto-char (point-min)) (search-forward "\n<<") (beginning-of-line)