Mercurial > emacs

changeset 111798:636a2b5cff1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
emacsbug.el trivia. * lisp/mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer): Remove more undefined cl functions.
author Glenn Morris <rgm@gnu.org>
date Thu, 02 Dec 2010 19:03:06 -0800
parents b2c5606310f5
children 3aa1279e9141
files lisp/ChangeLog lisp/mail/emacsbug.el
diffstat 2 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Dec 02 19:01:16 2010 -0800
+++ b/lisp/ChangeLog	Thu Dec 02 19:03:06 2010 -0800
@@ -1,5 +1,8 @@
 2010-12-03  Glenn Morris  <rgm@gnu.org>
 
+	* mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer):
+	Remove more undefined cl functions.
+
 	* vc/diff.el (diff-sentinel): Make new arguments optional.
 	* ibuf-ext.el (diff-sentinel): Update declaration.
 
--- a/lisp/mail/emacsbug.el	Thu Dec 02 19:01:16 2010 -0800
+++ b/lisp/mail/emacsbug.el	Thu Dec 02 19:03:06 2010 -0800
@@ -399,11 +399,11 @@
 		       (dolist (bug bugs)
 			 (push (list
 				'url-link
-				:format (concat "Bug#" (number-to-string (third bug))
+				:format (concat "Bug#" (number-to-string (nth 2 bug))
 						": " (cadr bug) "\n    %[%v%]\n")
 				;; FIXME: Why is only the link of the
 				;; active item clickable?
-				(first bug))
+				(car bug))
 			       items))
 		       (nreverse items))))
       (widget-insert "No bugs maching your keywords found.\n"))