arch-tag lines in tutorials.

[Lute Kamstra]

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)