emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 01/01: * lisp/simple.el (next-line-or-history-eleme


From: Juri Linkov
Subject: [Emacs-diffs] master 01/01: * lisp/simple.el (next-line-or-history-element): Wrap next-line in with-no-warnings. (previous-line-or-history-element): Wrap previous-line in with-no-warnings.
Date: Tue, 18 Nov 2014 22:23:52 +0000

branch: master
commit 4a306d701b0dbe860c8ced70e0d93bd3129f0665
Author: Juri Linkov <address@hidden>
Date:   Wed Nov 19 00:23:47 2014 +0200

    * lisp/simple.el (next-line-or-history-element): Wrap next-line in 
with-no-warnings.
    (previous-line-or-history-element): Wrap previous-line in with-no-warnings.
---
 lisp/ChangeLog |    7 +++++++
 lisp/simple.el |    6 ++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7763d25..8b7f62a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2014-11-18  Juri Linkov  <address@hidden>
 
+       * simple.el (next-line-or-history-element): Wrap next-line
+       in with-no-warnings.
+       (previous-line-or-history-element): Wrap previous-line
+       in with-no-warnings.
+
+2014-11-18  Juri Linkov  <address@hidden>
+
        * progmodes/grep.el (grep-compute-defaults):
        Compute grep-highlight-matches before its use.
 
diff --git a/lisp/simple.el b/lisp/simple.el
index fda7040..2a47165 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1992,7 +1992,8 @@ next element of the minibuffer history in the minibuffer."
   (or arg (setq arg 1))
   (let ((old-point (point)))
     (condition-case nil
-       (next-line arg)
+       (with-no-warnings
+         (next-line arg))
       (end-of-buffer
        ;; Restore old position since `line-move-visual' moves point to
        ;; the end of the line when it fails to go to the next line.
@@ -2007,7 +2008,8 @@ previous element of the minibuffer history in the 
minibuffer."
   (or arg (setq arg 1))
   (let ((old-point (point)))
     (condition-case nil
-       (previous-line arg)
+       (with-no-warnings
+         (previous-line arg))
       (beginning-of-buffer
        ;; Restore old position since `line-move-visual' moves point to
        ;; the beginning of the line when it fails to go to the previous line.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]