unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: Lute Kamstra <Lute.Kamstra.lists@xs4all.nl>
Subject: arch-tag lines in tutorials.
Date: Mon, 11 Apr 2005 14:00:46 +0200	[thread overview]
Message-ID: <878y3pldzl.fsf@xs4all.nl> (raw)

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)

             reply	other threads:[~2005-04-11 12:00 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2005-04-11 12:00 Lute Kamstra [this message]
2005-04-14 20:34 ` arch-tag lines in tutorials Marcelo Toledo
2005-04-14 23:03   ` Miles Bader
2005-04-15  9:04     ` Lute Kamstra
2005-04-15 12:32       ` Miles Bader
2005-04-15 15:12     ` Richard Stallman

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=878y3pldzl.fsf@xs4all.nl \
    --to=lute.kamstra.lists@xs4all.nl \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).