Mercurial > emacs
changeset 111738:afde28b09d79
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 26 Nov 2010 19:15:59 -0800 |
| parents | 67a08cfa1976 |
| children | ce132c9fdaf1 |
| files | lisp/ChangeLog lisp/mail/emacsbug.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Nov 26 19:02:53 2010 -0800 +++ b/lisp/ChangeLog Fri Nov 26 19:15:59 2010 -0800 @@ -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
--- a/lisp/mail/emacsbug.el Fri Nov 26 19:02:53 2010 -0800 +++ b/lisp/mail/emacsbug.el Fri Nov 26 19:15:59 2010 -0800 @@ -394,13 +394,13 @@ (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 @@ (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