
(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." (byte-code "p`D‡" [] 2))

(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… ÆÇ!… È ‚D ÅV…) …: @AS‰ˆ‚\" ˆÉ	@!ˆ	A@b)‡" [arg prev-buf-line nil *hhist* 1 0 message "(hhist:remove): No previous source to which to return." beep switch-to-buffer] 5))

(defun hhist:init nil "\
Resets history list." (interactive) (byte-code "ÁˆÁ‰‡" [*hhist* nil] 2))

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