[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb 688917f 04/16: Use previous object as default when
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb 688917f 04/16: Use previous object as default when editing anniversary field |
Date: |
Sun, 16 Jun 2019 12:23:06 -0400 (EDT) |
branch: externals/ebdb
commit 688917f4a1123f298e84ee374b93e3efc98cce5d
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Use previous object as default when editing anniversary field
* ebdb.el (ebdb-read): Most of the other fields already did this...
---
ebdb.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index d094d40..f7edfad 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -1943,13 +1943,18 @@ Eventually this method will go away."
(cl-defmethod ebdb-read ((class (subclass ebdb-field-anniversary)) &optional
slots obj)
;; Fake `calendar-read-date' to make the year optional.
(let* ((year (ebdb-with-exit
- (read-number "Year (C-g to omit): ")))
+ (read-number "Year (C-g to omit): "
+ (when obj (nth 2 (slot-value obj 'date))))))
(month (cdr (assoc-string
(completing-read
"Month: "
(mapcar 'list (append
calendar-month-name-array nil))
- nil t)
+ nil t (when obj
+ (aref
+ calendar-month-name-array
+ (1- (nth 0 (slot-value obj 'date)))))
+ nil)
(calendar-make-alist
calendar-month-name-array 1)
t)))
@@ -1958,7 +1963,9 @@ Eventually this method will go away."
month (or year 2017)))
(day (calendar-read (format "Day (1-%d): " last)
(lambda (x) (and (< 0 x)
- (<= x last))))))
+ (<= x last)))
+ (when obj (number-to-string
+ (nth 1 (slot-value obj 'date)))))))
(cl-call-next-method class
(plist-put slots :date
(list month day year))
- [elpa] externals/ebdb updated (05b3270 -> 22895a4), Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb b4e5cd4 03/16: Quit EBDB window after message is sent in mu4e, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 480fc95 02/16: Fix functions for browsing anniversary dates, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 4a5ac62 05/16: Fix some plist-get calls to use tags, not symbols, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 688917f 04/16: Use previous object as default when editing anniversary field,
Eric Abrahamsen <=
- [elpa] externals/ebdb 16185b5 07/16: Fix docstring of ebdb-popup-window, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 2568b9a 10/16: Fix dumb bug in gnus and message window config, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 7a6794b 08/16: Further error with slots as keyword vs symbol, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 838103e 01/16: New option ebdb-default-window-size to control popup sizes, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 48a311a 14/16: Fix bug in popup buffer window splitting, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 1bcfaa1 12/16: Remove EBDB-Message buffer after killing or postponing message, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb e98b18a 06/16: New command ebdb-create-record-and-role, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 22895a4 16/16: Bump version to 0.6.9, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 7921f6a 11/16: Have ebdb-pop-up-window better honor ebdb-default-window-size, Eric Abrahamsen, 2019/06/16
- [elpa] externals/ebdb 4e1ea30 15/16: Fix to "Remove EBDB-Message buffer after killing..." etc, Eric Abrahamsen, 2019/06/16