diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/emacsbug.el | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47d352df116..bd92ca9eb1d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-11-27 Glenn Morris <rgm@gnu.org> + + * mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer): + Replace undefined CL functions. + 2010-11-26 Eli Zaretskii <eliz@gnu.org> * simple.el (prog-mode): Set bidi-paragraph-direction to diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 472c9791f8a..a00f4c3a46e 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -394,13 +394,13 @@ and send the mail again%s." (if bugs (setq bug-choice-widget (apply 'widget-create 'radio-button-choice - :value (car (first bugs)) + :value (caar bugs) (let (items) (dolist (bug bugs) (push (list 'url-link :format (concat "Bug#" (number-to-string (third bug)) - ": " (second bug) "\n %[%v%]\n") + ": " (cadr bug) "\n %[%v%]\n") ;; FIXME: Why is only the link of the ;; active item clickable? (first bug)) @@ -420,7 +420,7 @@ and send the mail again%s." (let ((val (widget-value bug-choice-widget))) ;; TODO: Do something! (message "Appending to bug %s!" - (third (assoc val bug-alist))))) + (nth 2 (assoc val bug-alist))))) "Append to chosen bug")) (widget-insert " ") (widget-create 'push-button |