[Emacs-diffs] /srv/bzr/emacs/trunk r102537: Fix emacsbug.el errors clearly flagged by the byte-compiler.

[Glenn Morris]

------------------------------------------------------------
revno: 102537
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2010-11-26 19:15:59 -0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-26 19:10:26 +0000
+++ b/lisp/ChangeLog    2010-11-27 03:15:59 +0000
@@ -1,3 +1,8 @@
+2010-11-27  Glenn Morris  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer):
+       Replace undefined CL functions.
+
 2010-11-26  Eli Zaretskii  <address@hidden>
 
        * simple.el (prog-mode): Set bidi-paragraph-direction to

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2010-11-23 08:00:56 +0000
+++ b/lisp/mail/emacsbug.el     2010-11-27 03:15:59 +0000
@@ -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