[elpa] externals/rt-liberation b23df79 50/68: * rt-liberation.el: forward and back section movement

[Yoni Rabkin]

branch: externals/rt-liberation
commit b23df79bd7f5a6dac61704aceb8036d3ec314a5f
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

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