
(defun hhist:add (elt) "\
Adds ELT to hyper-history list if not the same as current or previous loc.
ELT must have been created via a call to 'hhist:element'." (byte-code "ÄÅ !qˆ	@ÆÇ \"† Æ
@@\"ƒ Ã‚# 	
B‰)‡" [prev-buf elt *hhist* nil window-buffer selected-window equal buffer-name] 7))

(defun hhist:element nil "\
Returns a history element for current point location." (list (current-buffer) (point)))

(defun hhist:remove (&optional arg) "\
Removes optional prefix ARG entries from history, returns to ARGth location.
The command is ignored with ARG < 1." (interactive "p") (byte-code "† Ã‰ˆÄ
?ƒ  ÅV… ÆÇ!… È ‚B ÅV…' 
…8 
@
AS‰ˆ‚  ˆÉ	@!ˆ	A@b)‡" [arg prev-buf-line *hhist* 1 nil 0 message "(hhist:remove): No previous source to which to return." beep switch-to-buffer] 5))

(defun hhist:init nil "\
Resets history list." (interactive) (setq *hhist* nil))

(defun hhist:wind-line nil "\
Returns window relative line number that point is on." (byte-code "ÀÁÂ`T\"ÁÂÃ \"ZS]‡" [0 count-lines 1 window-start] 7))

(defconst *hhist* nil "\
List of previously visited Hyperbole button source locations.
Car of list is most recent.")

(provide (quote hhist))