diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-11-26 19:15:59 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-11-26 19:15:59 -0800 |
| commit | a140ec5f5e91a60851ebdbfe3360825e89965df1 (patch) | |
| tree | 8ea0f2ef314c7cb826f5751f0a51fa1ab202c03c /lisp/mail | |
| parent | 0162eb45af85245c596acd4986e86da3affb5a83 (diff) | |
| download | emacs-a140ec5f5e91a60851ebdbfe3360825e89965df1.tar.gz | |
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.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/emacsbug.el | 6 |
1 files changed, 3 insertions, 3 deletions
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 |