summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2020-12-02 11:51:38 -0500
committerYoni Rabkin <yoni@rabkins.net>2020-12-02 11:51:38 -0500
commitb23df79bd7f5a6dac61704aceb8036d3ec314a5f (patch)
treedf370e55d2f0e3826cc459b522fe959259e19a5f
parentcbfb99c308c09808386c34467530388b7dc9b62e (diff)
* rt-liberation.el: forward and back section movement
-rw-r--r--rt-liberation.el14
1 files changed, 10 insertions, 4 deletions
diff --git a/rt-liberation.el b/rt-liberation.el
index 9e759dc..bc5e8c6 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1213,6 +1213,11 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
"Expressions to font-lock for RT ticket viewer.")
+(defun rt-liber-viewer2-mode-quit ()
+ "Bury the ticket viewer."
+ (interactive)
+ (bury-buffer))
+
(defun rt-liber-viewer-reduce (section-list f acc)
"A Not Invented Here tail-recursive reduce function."
(cond ((null (cdr section-list)) acc)
@@ -1421,16 +1426,17 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(let ((next (next-single-property-change
(point)
'rt-liberation-viewer-header)))
- (when next
- (goto-char next))))
+ (if next
+ (goto-char next)
+ (message "no next section"))))
(defun rt-liber-viewer2-previous-section-in ()
(interactive)
- (forward-line -1)
(let ((prev (previous-single-property-change
(point-at-bol)
'rt-liberation-viewer-header)))
- (when prev
+ (if (not prev)
+ (message "no previous section")
(goto-char prev)
(forward-line -1))))