emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ebdb e4f1cf5 046/350: Fix broken quoting for organizati


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb e4f1cf5 046/350: Fix broken quoting for organization simple name reading
Date: Mon, 14 Aug 2017 11:46:00 -0400 (EDT)

branch: externals/ebdb
commit e4f1cf5413454dd632045165bc8507855ff9ccdc
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Fix broken quoting for organization simple name reading
    
    * ebdb.el (ebdb-read): This was causing some weird errors.
      (ebdb-record-change-name): This is probably unnecessary.
---
 ebdb.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index 0a2580b..ce48643 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -645,7 +645,7 @@ message."
 
 (cl-defmethod ebdb-read ((class (subclass ebdb-field-name-simple))
                         &optional slots obj)
-  (let ((name (ebdb-read-string "Name: " (when obj (slot-value obj name)))))
+  (let ((name (ebdb-read-string "Name: " (when obj (slot-value obj 'name)))))
     (cl-call-next-method class (plist-put slots :name name) obj)))
 
 (cl-defmethod ebdb-init-field ((name ebdb-field-name-simple) &optional record)
@@ -2550,7 +2550,7 @@ appropriate person record."
           m))))))
 
 (cl-defmethod ebdb-record-change-name ((org ebdb-record-organization) 
&optional name)
-  (let ((new-name (or name (ebdb-read 'ebdb-field-name-simple nil (slot-value 
org 'name)))))
+  (let ((new-name (or name (ebdb-read ebdb-field-name-simple nil (slot-value 
org 'name)))))
     (setf (slot-value (ebdb-record-cache org) 'name-string) (ebdb-string 
new-name))
     (cl-call-next-method org new-name)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]