* 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-17 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * 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 <Reiner.Steib@gmx.de>
* gnus-score.el (gnus-score-headers): Fix handling of
2008-03-16 Reiner Steib <Reiner.Steib@gmx.de>
* gnus-score.el (gnus-score-headers): Fix handling of
(unless (fboundp 'defadvice)
(autoload 'defadvice "advice" nil nil 'macro))
(autoload 'Info-directory "info" nil t)
(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")
(autoload 'Info-menu "info" nil t)
(autoload 'ad-add-advice "advice")
(autoload 'annotations-at "annotations")
;; (info) will autoload info.el
(declare-function Info-menu "info" (menu-item &optional fork))
;; (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."
(defun gnus-button-handle-info-keystrokes (url)
"Call `info' when pushing the corresponding URL button."
(when comma
(dotimes (i (with-temp-buffer
(insert comma)
(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)))
(Info-index-next 1)))
nil)))
(when (<= emacs-major-version 22)
(defun nnkiboze-score-file (a))
(maybe-fbind
(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))
(when (= emacs-major-version 21)
(defun split-line (&optional arg))