From: Dave Love <fx@gnu.org>
Date: Wed, 3 Jul 2002 16:52:28 +0000 (+0000)
Subject: (ediff-wordify): Bind ediff-forward-word-function
X-Git-Tag: emacs-pretest-21.2.91~199
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f629d481ff68e78304a0f45701705aa94513a60;p=emacs.git

(ediff-wordify): Bind ediff-forward-word-function
outside the loop.
(ediff-goto-word): Take ediff-with-syntax-table outside the loop.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2fe221726d..9fe06e2b5f8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-07-03  Dave Love  <fx@gnu.org>
+
+	* ediff-diff.el (ediff-wordify): Bind ediff-forward-word-function
+	outside the loop.
+	(ediff-goto-word): Take ediff-with-syntax-table outside the loop.
+
 2002-07-03  Juanma Barranquero  <lektu@terra.es>
 
 	* textmodes/reftex-vars.el (reftex-label-alist): Fix typo.
@@ -17,7 +23,8 @@
 
 	* textmodes/reftex-cite.el (reftex-citation): Fix typo.
 
-	* progmodes/cperl-mode.el (cperl-break-one-line-blocks-when-indent): Fix typo.
+	* progmodes/cperl-mode.el (cperl-break-one-line-blocks-when-indent):
+	Fix typo.
 
 2002-06-27  Eli Zaretskii  <eliz@is.elta.co.il>
 
@@ -4167,7 +4174,7 @@
 	(toplevel): Add completion-list-mode-finish to temp-buffer-show-hook.
 
 	* language/european.el ("Polish"): Change sample text.
-	From jsbien@mimuw.edu.pl (Janusz S. Bie,Bq(B).
+	From jsbien@mimuw.edu.pl (Janusz S. Bie$,1 d(B).
 
 	* progmodes/sh-script.el (sh-indent-line): Add optional PREFIX-ARG
 	parameter.
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 9a1d3c1c331..bc7c3cc7cee 100644
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -1,6 +1,6 @@
 ;;; ediff-diff.el --- diff-related utilities
 
-;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1996, 1997, 2001 Free Software Foundation, Inc.
 
 ;; Author: Michael Kifer <kifer@cs.sunysb.edu>
 
@@ -1270,18 +1270,19 @@ arguments to `skip-chars-forward'."
      (skip-chars-forward ediff-whitespace)
      (delete-region (point-min) (point))
      
-     (while (not (eobp))
-       ;; eval in control buf to let user create local versions for
-       ;; different invocations
-       (if control-buf
-	   (funcall 
-	    (ediff-with-current-buffer control-buf
-	      ediff-forward-word-function))
-	 (funcall ediff-forward-word-function))
-       (setq sv-point (point))
-       (skip-chars-forward ediff-whitespace)
-       (delete-region sv-point (point))
-       (insert "\n")))))
+     (let ((ediff-forward-word-function
+	    ;; eval in control buf to let user create local versions for
+	    ;; different invocations
+	    (if control-buf
+		(ediff-with-current-buffer control-buf
+		  ediff-forward-word-function)
+	      ediff-forward-word-function)))
+       (while (not (eobp))
+	 (funcall ediff-forward-word-function)
+	 (setq sv-point (point))
+	 (skip-chars-forward ediff-whitespace)
+	 (delete-region sv-point (point))
+	 (insert "\n"))))))
        
 ;; copy string from BEG END from IN-BUF to OUT-BUF
 (defun ediff-copy-to-buffer (beg end in-buffer out-buffer)
@@ -1305,11 +1306,11 @@ arguments to `skip-chars-forward'."
 	(syntax-tbl ediff-syntax-table))
     (ediff-with-current-buffer buf
       (skip-chars-forward ediff-whitespace)
-      (while (> n 1)
-	(ediff-with-syntax-table syntax-tbl
-	    (funcall fwd-word-fun))
-	(skip-chars-forward ediff-whitespace)
-	(setq n (1- n)))
+      (ediff-with-syntax-table syntax-tbl
+	(while (> n 1)
+	  (funcall fwd-word-fun)
+	  (skip-chars-forward ediff-whitespace)
+	  (setq n (1- n))))
       (if (and flag (> n 0))
 	  (funcall fwd-word-fun))
       (point))))