[elpa] externals/rec-mode 33e106f 54/98: rec-mode: improve rec-log-current-defun so it works in all cases.

[Stefan Monnier]

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

    rec-mode: improve rec-log-current-defun so it works in all cases.
---
 etc/rec-mode.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/etc/rec-mode.el b/etc/rec-mode.el
index ee719a9..11072b2 100644
--- a/etc/rec-mode.el
+++ b/etc/rec-mode.el
@@ -2052,7 +2052,9 @@ function returns `nil'."
     (when record
       (if key
           (let ((values (rec-record-assoc key record)))
-            (when values (car values)))
+            (if values
+                (car values)
+              (rec-field-value (car (rec-record-fields record)))))
         (rec-field-value (car (rec-record-fields record)))))))
 
 ;;;; Definition of modes