Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site ubc-vision.CDN
Path: utzoo!utcsrgv!ubc-vision!majka
From: majka@ubc-vision.CDN (Marc Majka)
Newsgroups: net.emacs
Subject: tags - a simple solution
Message-ID: <701@ubc-vision.CDN>
Date: Thu, 8-Nov-84 14:58:37 EST
Article-I.D.: ubc-visi.701
Posted: Thu Nov  8 14:58:37 1984
Date-Received: Fri, 9-Nov-84 01:42:03 EST
Organization: UBC Vision, Vancouver, B.C., Canada
Lines: 24


Here are a simple set of tags routines.  They may be much dumber than tags
packages, but they do what I want: 

1: set a tag by giving a spot in a buffer a name.
2: go to a spot by name.

-----
Marc Majka - UBC Laboratory for Computation Vision

------------------------------------------------------------------------

(defun
    (set-tag tag-name
	(setq tag-name (arg 1 "Set tag: "))
	(execute-mlisp-line (concat "(declare-buffer-specific " tag-name ")"))
	(execute-mlisp-line (concat "(setq " tag-name " (dot))"))
	(message tag-name " set")))

(defun
    (goto-tag tag-name
	(setq tag-name (arg 1 "Go to tag: "))
	(execute-mlisp-line (concat "(goto-character " tag-name ")"))
	(message (concat "Gone to " tag-name))))