unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* arch-tag lines in tutorials.
@ 2005-04-11 12:00 Lute Kamstra
  2005-04-14 20:34 ` Marcelo Toledo
  0 siblings, 1 reply; 6+ messages in thread
From: Lute Kamstra @ 2005-04-11 12:00 UTC (permalink / 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)

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2005-04-15 15:12 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-04-11 12:00 arch-tag lines in tutorials Lute Kamstra
2005-04-14 20:34 ` 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

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).