* emulation/pc-select.el (next-line-mark, next-line-nomark)

(previous-line-mark, previous-line-nomark): Wrap with-no-warnings
around uses of previous-line and next-line.

* diff.el (diff-old-file, diff-new-file, diff-extra-args): New
defvars.

* textmodes/css-mode.el (comment-continue):
* net/browse-url.el (url-handler-regexp):
* progmodes/idlw-help.el (idlwave-system-routines): Pacify
byte-compiler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e42a3b39df00d52f2fd68d433906b58676cfd690..7da5bb702fb650bcd900e7fb6c0874d6777dd0ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,20 @@
 2007-10-26  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * emulation/pc-select.el (next-line-mark, next-line-nomark)
+       (previous-line-mark, previous-line-nomark): Wrap with-no-warnings
+       around uses of previous-line and next-line.
+
+       * diff.el (diff-old-file, diff-new-file, diff-extra-args): New
+       defvars.
+
+       * textmodes/css-mode.el (comment-continue):
+       * net/browse-url.el (url-handler-regexp):
+       * progmodes/idlw-help.el (idlwave-system-routines): Pacify
+       byte-compiler.
+
        * textmodes/fill.el (fill-nobreak-p): Replace obsolete alias
-       line-move-invisible-p with invisible-p, it was removed on
-       2007-08-29.
+       line-move-invisible-p it's former definition:
+       invisible-p. line-move-invisible-p was removed on 2007-08-29.
 
 2007-10-26  Juanma Barranquero  <lekktu@gmail.com>
 

diff --git a/lisp/diff.el b/lisp/diff.el
index b063c07b40f43161275e215d275f939b81ac2e56..add3390881fe4df0879ef97ab0691f7c9f1a8626 100644 (file)
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -73,6 +73,10 @@ were found."
                      (if (equal 0 code) " (no differences)" "")
                      (current-time-string))))))
 
+(defvar diff-old-file nil)
+(defvar diff-new-file nil)
+(defvar diff-extra-args nil)
+
 ;;;###autoload
 (defun diff (old new &optional switches no-async)
   "Find and display the differences between OLD and NEW files.

diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el
index e74556b5a5ca7c53fde5bf65d2d165a19de62d37..a4e304616dad202d54f634cac2ad39150beca4b3 100644 (file)
--- a/lisp/emulation/pc-select.el
+++ b/lisp/emulation/pc-select.el
@@ -351,7 +351,7 @@ Then it does not try to move vertically.  This goal column is stored
 in `goal-column', which is nil when there is none."
   (interactive "p")
   (ensure-mark)
-  (next-line arg)
+  (with-no-warnings (next-line arg))
   (setq this-command 'next-line))
 
 (defun end-of-line-mark (&optional arg)
@@ -484,7 +484,7 @@ Then it does not try to move vertically.  This goal column is stored
 in `goal-column', which is nil when there is none."
   (interactive "p")
   (setq mark-active nil)
-  (next-line arg)
+  (with-no-warnings (next-line arg))
   (setq this-command 'next-line))
 
 (defun end-of-line-nomark (&optional arg)
@@ -609,7 +609,7 @@ If you are thinking of using this in a Lisp program, consider using
 to use and more reliable (no dependence on goal column, etc.)."
   (interactive "p")
   (ensure-mark)
-  (previous-line arg)
+  (with-no-warnings (previous-line arg))
   (setq this-command 'previous-line))
 
 (defun beginning-of-line-mark (&optional arg)
@@ -707,7 +707,7 @@ a semipermanent goal column to which this command always moves.
 Then it does not try to move vertically."
   (interactive "p")
   (setq mark-active nil)
-  (previous-line arg)
+  (with-no-warnings (previous-line arg))
   (setq this-command 'previous-line))
 
 (defun beginning-of-line-nomark (&optional arg)

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 9715c775eb1bf2e7f6a071c449b5869324df50c0..c2a0442478c9d77f6f8d7d39f98fd57e04fb2d8a 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1153,6 +1153,8 @@ used instead of `browse-url-new-window-flag'."
               browse-url-epiphany-program
               (append browse-url-epiphany-startup-arguments (list url))))))
 
+(defvar url-handler-regexp)
+
 ;;;###autoload
 (defun browse-url-emacs (url &optional new-window)
   "Ask Emacs to load URL into a buffer and show it in another window."

diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index e7f0fa1677a6ae17b6e87b22cdaf95049862cfb2..2269e17935785c515f9f31f632751a2ebc740207 100644 (file)
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -1317,6 +1317,8 @@ IDL assistant.")
 (defvar idlwave-help-assistant-help-with-topic-history nil
   "The history of help topics selected with the minibuffer.")
 
+(defvar idlwave-system-routines)
+
 (defun idlwave-help-assistant-help-with-topic (&optional topic)
   "Prompt for and provide help with TOPIC."
   (interactive)

diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el
index 079c362b5046395aed99224f85d476577db92785..0ad883ca367a597ee2b004c410c1f41c49e7e2b9 100644 (file)
--- a/lisp/textmodes/css-mode.el
+++ b/lisp/textmodes/css-mode.el
@@ -277,6 +277,8 @@
         (aset fc c 'indent-according-to-mode))
       (set (make-local-variable 'auto-fill-chars) fc))))
 
+(defvar comment-continue)
+
 (defun css-fill-paragraph (&optional justify)
   (save-excursion
     (let ((ppss (syntax-ppss))