mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
* 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.
This commit is contained in:
parent
67b73e3aa7
commit
3fe5c37a0c
@ -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>
|
||||
|
||||
|
@ -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.
|
||||
|
@ -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)
|
||||
|
@ -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."
|
||||
|
@ -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)
|
||||
|
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user