From a140ec5f5e91a60851ebdbfe3360825e89965df1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 26 Nov 2010 19:15:59 -0800 Subject: [PATCH] Fix emacsbug.el errors clearly flagged by the byte-compiler. * lisp/mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer): Replace undefined CL functions. --- lisp/ChangeLog | 5 +++++ 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 + + * mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer): + Replace undefined CL functions. + 2010-11-26 Eli Zaretskii * 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 -- 2.39.2