comparison lisp/progmodes/cc-cmds.el @ 90234:b1c1fc853d2f

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-86 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 562-568) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 125-128) - Merge from emacs--cvs-trunk--0 - Update from CVS

90233:ee12d75eb214

      ;; do some special stuff with the character
      (let* (;; We want to inhibit blinking the paren since this will
	     ;; be most disruptive.  We'll blink it ourselves
	     ;; afterwards.
	     (old-blink-paren blink-paren-function)
	     blink-paren-function)
	(self-insert-command (prefix-numeric-value arg))
	(if c-syntactic-indentation
	    (indent-according-to-mode))
	(when (looking-at "[ \t]*\\\\?$")
	  (when c-auto-newline

			  (setq beg (point))
			  (c-on-identifier))))
		 (delete-region beg end))))
	(and (not executing-kbd-macro)
	     old-blink-paren
	     (funcall old-blink-paren))))))

(defun c-electric-continued-statement ()
  "Reindent the current line if appropriate.

90234:b1c1fc853d2f

      ;; do some special stuff with the character
      (let* (;; We want to inhibit blinking the paren since this will
	     ;; be most disruptive.  We'll blink it ourselves
	     ;; afterwards.
	     (old-blink-paren blink-paren-function)
	     blink-paren-function
	     (noblink (eq last-input-event ?\()))
	(self-insert-command (prefix-numeric-value arg))
	(if c-syntactic-indentation
	    (indent-according-to-mode))
	(when (looking-at "[ \t]*\\\\?$")
	  (when c-auto-newline

			  (setq beg (point))
			  (c-on-identifier))))
		 (delete-region beg end))))
	(and (not executing-kbd-macro)
	     old-blink-paren
	     (not noblink)
	     (funcall old-blink-paren))))))

(defun c-electric-continued-statement ()
  "Reindent the current line if appropriate.