# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871702737 0
# Node ID 989d0412ada304e78c408c7582b56c930886aed2
# Parent  6d5536cedd70e74de71eea32869d9434c15b5076
(c-end-of-statement-1): Eliminate false hits on important characters
inside literals (strings, comments).

diff -r 6d5536cedd70 -r 989d0412ada3 lisp/progmodes/cc-engine.el
--- a/lisp/progmodes/cc-engine.el	Sat Aug 16 03:37:28 1997 +0000
+++ b/lisp/progmodes/cc-engine.el	Sat Aug 16 03:38:57 1997 +0000
@@ -7,7 +7,7 @@
 ;;             1985 Richard M. Stallman
 ;; Maintainer: cc-mode-help@python.org
 ;; Created:    22-Apr-1997 (split from cc-mode.el)
-;; Version:    5.15
+;; Version:    5.16
 ;; Keywords:   c languages oop
 
 ;; This file is part of GNU Emacs.
@@ -171,16 +171,22 @@
     (skip-chars-backward "-+!*&:.~" (c-point 'boi))))
 
 (defun c-end-of-statement-1 ()
-  (condition-case ()
-      (progn
+  (condition-case nil
+      (let (beg end found)
 	(while (and (not (eobp))
-		    (let ((beg (point)))
+		    (progn
+		      (setq beg (point))
 		      (forward-sexp 1)
-		      (let ((end (point)))
-			(save-excursion
-			  (goto-char beg)
-			  (not (re-search-forward "[;{}]" end t)))))))
-	(re-search-backward "[;}]")
+		      (setq end (point))
+		      (goto-char beg)
+		      (setq found nil)
+		      (while (and (not found)
+				  (re-search-forward "[;{}]" end t))
+			(if (not (c-in-literal beg))
+			    (setq found t)))
+		      (not found)))
+	  (goto-char end))
+	(re-search-backward "[;{}]")
 	(forward-char 1))
     (error 
      (let ((beg (point)))