diff lisp/cc-mode/cc-compat.el @ 171:929b76928fce r20-3b12

Import from CVS: tag r20-3b12
author cvs
date Mon, 13 Aug 2007 09:47:52 +0200
parents 5a88923fcbfe
children 2d532a89d707
line wrap: on
line diff
--- a/lisp/cc-mode/cc-compat.el	Mon Aug 13 09:47:00 2007 +0200
+++ b/lisp/cc-mode/cc-compat.el	Mon Aug 13 09:47:52 2007 +0200
@@ -5,7 +5,7 @@
 ;; Author:     1994-1997 Barry A. Warsaw
 ;; Maintainer: cc-mode-help@python.org
 ;; Created:    August 1994, split from cc-mode.el
-;; Version:    5.11
+;; Version:    5.12
 ;; Keywords:   c languages oop
 
 ;; This file is part of GNU Emacs.
@@ -40,8 +40,8 @@
 ;;; Code:
 
 (eval-when-compile
-  (load-file "./cc-styles.el")
-  (load-file "./cc-engine.el"))
+  (require 'cc-styles)
+  (require 'cc-engine))
 
 
 ;; In case c-mode.el isn't loaded
@@ -88,7 +88,7 @@
   ;; taken directly from calculate-c-indent confusion
   (save-excursion
     (c-backward-syntactic-ws)
-    (if (= (preceding-char) ?{)
+    (if (eq (char-before) ?{)
 	(forward-char -1)
       (goto-char (cdr langelem)))
     (let* ((curcol (save-excursion 
@@ -113,7 +113,7 @@
 	      ;; move to the beginning of that; possibly a different
 	      ;; line
 	      (progn
-		(if (eq (preceding-char) ?\))
+		(if (eq (char-before) ?\))
 		    (forward-sexp -1))
 		;; Get initial indentation of the line we are on.
 		(current-indentation)))))
@@ -129,7 +129,7 @@
 		     (current-column)))
 	   (bocm-lossage (progn
 			   (goto-char (cdr langelem))
-			   (if (= (following-char) ?{)
+			   (if (eq (char-after) ?{)
 			       (setq bracep t)
 			     (goto-char here)
 			     (beginning-of-line)