From b23df79bd7f5a6dac61704aceb8036d3ec314a5f Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 2 Dec 2020 11:51:38 -0500 Subject: * rt-liberation.el: forward and back section movement --- rt-liberation.el | 14 ++++++++++---- 1 file 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)))) -- cgit v1.2.3