Commit a140ec5f authored by Glenn Morris's avatar Glenn Morris
Browse files

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.
parent 0162eb45
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> 2010-11-26 Eli Zaretskii <eliz@gnu.org>
   
* simple.el (prog-mode): Set bidi-paragraph-direction to * simple.el (prog-mode): Set bidi-paragraph-direction to
......
...@@ -394,13 +394,13 @@ and send the mail again%s." ...@@ -394,13 +394,13 @@ and send the mail again%s."
(if bugs (if bugs
(setq bug-choice-widget (setq bug-choice-widget
(apply 'widget-create 'radio-button-choice (apply 'widget-create 'radio-button-choice
:value (car (first bugs)) :value (caar bugs)
(let (items) (let (items)
(dolist (bug bugs) (dolist (bug bugs)
(push (list (push (list
'url-link 'url-link
:format (concat "Bug#" (number-to-string (third bug)) :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 ;; FIXME: Why is only the link of the
;; active item clickable? ;; active item clickable?
(first bug)) (first bug))
...@@ -420,7 +420,7 @@ and send the mail again%s." ...@@ -420,7 +420,7 @@ and send the mail again%s."
(let ((val (widget-value bug-choice-widget))) (let ((val (widget-value bug-choice-widget)))
;; TODO: Do something! ;; TODO: Do something!
(message "Appending to bug %s!" (message "Appending to bug %s!"
(third (assoc val bug-alist))))) (nth 2 (assoc val bug-alist)))))
"Append to chosen bug")) "Append to chosen bug"))
(widget-insert " ") (widget-insert " ")
(widget-create 'push-button (widget-create 'push-button
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment