Changes committed gnus/lisp (ChangeLog dgnushack.el gnus-art.el lpath.el)

Modified: ChangeLog dgnushack.el gnus-art.el lpath.el

* dgnushack.el: Autoload Info-index and Info-index-next for XEmacs.

* lpath.el: Fbind Info-index and Info-index-next for Emacs 21, 22.

* gnus-art.el (gnus-button-handle-info-keystrokes): Don't use optional args of
 `how-many' of which the XEmacs version doesn't take;
 declare Info-index-next as function.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1795 gnus/lisp/ChangeLog:7.1796
--- ChangeLog:7.1795	Sun Mar 16 16:49:30 2008
+++ ChangeLog	Mon Mar 17 02:16:04 2008
@@ -1,3 +1,13 @@
+2008-03-17  Katsumi Yamaoka  <[email protected]>
+
+	* dgnushack.el: Autoload Info-index and Info-index-next for XEmacs.
+
+	* lpath.el: Fbind Info-index and Info-index-next for Emacs 21, 22.
+
+	* gnus-art.el (gnus-button-handle-info-keystrokes): Don't use optional
+	args of `how-many' of which the XEmacs version doesn't take; declare
+	Info-index-next as function.
+
 2008-03-16  Reiner Steib  <[email protected]>
 
 	* gnus-score.el (gnus-score-headers): Fix handling of
Index: dgnushack.el
diff -u gnus/lisp/dgnushack.el:7.32 gnus/lisp/dgnushack.el:7.33
--- dgnushack.el:7.32	Mon Mar 10 01:53:11 2008
+++ dgnushack.el	Mon Mar 17 02:16:04 2008
@@ -203,6 +203,8 @@
     (unless (fboundp 'defadvice)
       (autoload 'defadvice "advice" nil nil 'macro))
     (autoload 'Info-directory "info" nil t)
+    (autoload 'Info-index "info" nil t)
+    (autoload 'Info-index-next "info" nil t)
     (autoload 'Info-menu "info" nil t)
     (autoload 'ad-add-advice "advice")
     (autoload 'annotations-at "annotations")
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.268 gnus/lisp/gnus-art.el:7.269
--- gnus-art.el:7.268	Sun Mar 16 16:45:42 2008
+++ gnus-art.el	Mon Mar 17 02:16:04 2008
@@ -7893,6 +7893,7 @@
 
 ;; (info) will autoload info.el
 (declare-function Info-menu "info" (menu-item &optional fork))
+(declare-function Info-index-next "info" (num))
 
 (defun gnus-button-handle-info-keystrokes (url)
   "Call `info' when pushing the corresponding URL button."
@@ -7920,7 +7921,10 @@
       (when comma
 	(dotimes (i (with-temp-buffer
 		      (insert comma)
-		      (how-many "," (point-min) (point-max))))
+		      ;; Note: the XEmacs version of `how-many' takes
+		      ;; no optional argument.
+		      (goto-char (point-min))
+		      (how-many ",")))
 	  (Info-index-next 1)))
       nil)))
 
Index: lpath.el
diff -u gnus/lisp/lpath.el:7.39 gnus/lisp/lpath.el:7.40
--- lpath.el:7.39	Mon Mar 10 07:58:37 2008
+++ lpath.el	Mon Mar 17 02:16:04 2008
@@ -18,10 +18,11 @@
   (when (<= emacs-major-version 22)
     (defun nnkiboze-score-file (a))
     (maybe-fbind
-     '(Info-menu
-       bbdb-complete-name display-time-event-handler epg-check-configuration
-       find-coding-system frame-device w3-do-setup w3-prepare-buffer w3-region
-       w32-focus-frame w3m-detect-meta-charset w3m-region)))
+     '(Info-index
+       Info-index-next Info-menu bbdb-complete-name display-time-event-handler
+       epg-check-configuration find-coding-system frame-device w3-do-setup
+       w3-prepare-buffer w3-region w32-focus-frame w3m-detect-meta-charset
+       w3m-region)))
 
   (when (= emacs-major-version 21)
     (defun split-line (&optional arg))