[net.emacs] tags - a simple solution

majka@ubc-vision.CDN (Marc Majka) (11/08/84)

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