Mercurial > hg > xemacs-beta
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)