Fix some compilation warnings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 858b8cd..43abd0c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * dgnushack.el (iswitchb): Require to shut up the compiler.
+
        * shr.el (shr-ensure-paragraph): Fix the non-empty line case.
        (shr-insert): Tweak line breaking.
        (shr-insert): Handle <pre> better.
@@ -7,6 +9,7 @@
        (shr-tag-li): Get <li> indentation even righter.
        (shr-tag-blockquote): Ensure paragraph start.
        (shr-make-table): Tweak table generation.
+       (shr-make-table): Fix typo.
 
        * shr.el: Implement table rendering.
 

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 48545eb..f5bf872 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -33,6 +33,7 @@
 (defalias 'facep 'ignore)
 
 (require 'cl)
+(require 'iswitchb)
 
 (defvar srcdir (or (getenv "srcdir") "."))
 (defvar loaddir (and load-file-name (file-name-directory load-file-name)))
@@ -129,8 +130,10 @@
 
 (eval-and-compile
   (unless (featurep 'xemacs)
+    (defvar iswitchb-temp-buflist)
     (defalias 'get-popup-menu-response 'ignore)
     (defalias 'event-object 'ignore)
+    (autoload 'iswitchb-read-buffer "iswitchb")
     (autoload 'netrc-credentials "netrc")
     (defalias 'x-defined-colors 'ignore)
     (defalias 'read-color 'ignore)))

diff --git a/lisp/shr.el b/lisp/shr.el
index bacb9d9..e78e6e1 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -385,7 +385,7 @@ Return a string with image data."
          (incf i))))
     widths))
 
-(defun shr-make-table (cons widths &optional fill)
+(defun shr-make-table (cont widths &optional fill)
   (let ((trs nil))
     (dolist (row cont)
       (when (eq (car row) 'tr)