[elpa] externals/rec-mode 424eb72 25/98: rec-mode: fixes in goto-type and show-type.

[Stefan Monnier]

branch: externals/rec-mode
commit 424eb7205f5839b75aa3ca5fea5d9ea3eba7a15e
Author: Jose E. Marchesi <jemarch@gnu.org>
Commit: Antoine Kalmbach <ane@iki.fi>

    rec-mode: fixes in goto-type and show-type.
---
 etc/rec-mode.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/etc/rec-mode.el b/etc/rec-mode.el
index 78d5fb8..251ae84 100644
--- a/etc/rec-mode.el
+++ b/etc/rec-mode.el
@@ -633,7 +633,7 @@ existing buffer."
   ;; used.  The rest are ignored.
   (mapcar
    (lambda (elem)
-     (rec-record-assoc rec-keyword-rec (cadr elem)))
+     (car (rec-record-assoc rec-keyword-rec (cadr elem))))
    rec-buffer-descriptors))
 
 (defun rec-type-p (type)
@@ -960,13 +960,14 @@ the result buffer."
 
 ;;;; Navigation
 
-(defun rec-show-type (type)
-  "Show the records of the given type"
+(defun rec-show-type (type &optional show-descriptor)
+  "Show the records of the given type.  If TYPE is nil then the records
+of the default type are shown."
   (widen)
   (unless (rec-goto-type type)
     (message "No records of the requested type were found."))
   ;; Show the first data record of this type, if it exists.
-  (if (and (not type)
+  (if (and (not show-descriptor)
            (save-excursion
              (let ((record-type (rec-record-type)))
                (and (rec-goto-next-rec)
@@ -1516,7 +1517,7 @@ This jump sets jump-back."
       (setq rec-jump-back (point-marker))
       (if rec-editing
           (rec-goto-type type)
-        (rec-show-type type)))))
+        (rec-show-type type t)))))
 
 (defun rec-cmd-count ()
   "Display a message in the minibuffer showing the number of