From 3fe5c37a0c6236ec34781d956ad9b7c764906999 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 26 Oct 2007 22:24:14 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 16 ++++++++++++++-- lisp/diff.el | 4 ++++ lisp/emulation/pc-select.el | 8 ++++---- lisp/net/browse-url.el | 2 ++ lisp/progmodes/idlw-help.el | 2 ++ lisp/textmodes/css-mode.el | 2 ++ 6 files changed, 28 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e42a3b39df0..7da5bb702fb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,20 @@ 2007-10-26 Dan Nicolaescu + * 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 diff --git a/lisp/diff.el b/lisp/diff.el index b063c07b40f..add3390881f 100644 --- 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 e74556b5a5c..a4e304616da 100644 --- 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 9715c775eb1..c2a0442478c 100644 --- 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 e7f0fa1677a..2269e179357 100644 --- 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 079c362b504..0ad883ca367 100644 --- 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)) -- 2.39.2