branch: externals/rec-mode
commit 33e106f824684811c73b2f27380013ad7fc65a0f
Author: Jose E. Marchesi <[email protected]>
Commit: Antoine Kalmbach <[email protected]>
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
