X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/2536fb611876d5526fe40b9bee2a16e2836d4ff3..91dd4dc44291d513b64ee95736c0b1dbd519bd82:/lisp/emulation/pc-select.el diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el index d6f7fdc2cc..a4e304616d 100644 --- a/lisp/emulation/pc-select.el +++ b/lisp/emulation/pc-select.el @@ -13,7 +13,7 @@ ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) +;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, @@ -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)