comparison lisp/progmodes/cc-mode.el @ 107086:1786f2e6a856

Change strategy for marking < and > as template delimiters: mark them strictly in matching pairs.

107085:d7831d04952b

  ;; Starting a mode is a sort of "change".  So call the change functions...
  (save-restriction
    (widen)
    (save-excursion
      (if c-get-state-before-change-function
	  (funcall c-get-state-before-change-function (point-min) (point-max)))
      (if c-before-font-lock-function
	  (funcall c-before-font-lock-function (point-min) (point-max)
		   (- (point-max) (point-min))))))

  (make-local-variable 'outline-regexp)

    (add-hook 'before-hack-local-variables-hook 'c-before-hack-hook)
  (add-hook 'hack-local-variables-hook 'c-postprocess-file-styles))

(defmacro c-run-mode-hooks (&rest hooks)
  ;; Emacs 21.1 has introduced a system with delayed mode hooks that
  ;; require the use of the new function `run-mode-hooks'.
  (if (cc-bytecomp-fboundp 'run-mode-hooks)
      `(run-mode-hooks ,@hooks)
    `(progn ,@(mapcar (lambda (hook) `(run-hooks ,hook)) hooks))))



  ;;
  ;; Point is undefined both before and after this function call; the buffer
  ;; has already been widened, and match-data saved.  The return value is
  ;; meaningless.
  ;;
  ;; This function is the C/C++/ObjC value of
  ;; `c-get-state-before-change-function' and is called exclusively as a
  ;; before change function.
  (goto-char beg)
  (c-beginning-of-macro)
  (setq c-old-BOM (point))

		)
	    (forward-line))	      ; no infinite loop with, e.g., "#//"
	  )))))

(defun c-before-change (beg end)
  ;; Function to be put on `before-change-function'.  Primarily, this calls
  ;; the language dependent `c-get-state-before-change-function'.  It is
  ;; otherwise used only to remove stale entries from the `c-found-types'
  ;; cache, and to record entries which a `c-after-change' function might
  ;; confirm as stale.
  ;;
  ;; Note that this function must be FAST rather than accurate.  Note

	;; (c-new-BEG c-new-END) will be the region to fontify.  It may become
	;; larger than (beg end).
	(setq c-new-BEG beg
	      c-new-END end)
	(if c-get-state-before-change-function
	    (funcall c-get-state-before-change-function beg end))
	))))

(defun c-after-change (beg end old-len)
  ;; Function put on `after-change-functions' to adjust various caches
  ;; etc.  Prefer speed to finesse here, since there will be an order

107086:1786f2e6a856

  ;; Starting a mode is a sort of "change".  So call the change functions...
  (save-restriction
    (widen)
    (save-excursion
      (if c-get-state-before-change-functions
	  (mapc (lambda (fn)
		  (funcall fn beg end))
		c-get-state-before-change-functions))
      (if c-before-font-lock-function
	  (funcall c-before-font-lock-function (point-min) (point-max)
		   (- (point-max) (point-min))))))

  (make-local-variable 'outline-regexp)

    (add-hook 'before-hack-local-variables-hook 'c-before-hack-hook)
  (add-hook 'hack-local-variables-hook 'c-postprocess-file-styles))

(defmacro c-run-mode-hooks (&rest hooks)
  ;; Emacs 21.1 has introduced a system with delayed mode hooks that
  ;; requires the use of the new function `run-mode-hooks'.
  (if (cc-bytecomp-fboundp 'run-mode-hooks)
      `(run-mode-hooks ,@hooks)
    `(progn ,@(mapcar (lambda (hook) `(run-hooks ,hook)) hooks))))



  ;;
  ;; Point is undefined both before and after this function call; the buffer
  ;; has already been widened, and match-data saved.  The return value is
  ;; meaningless.
  ;;
  ;; This function is in the C/C++/ObjC values of
  ;; `c-get-state-before-change-functions' and is called exclusively as a
  ;; before change function.
  (goto-char beg)
  (c-beginning-of-macro)
  (setq c-old-BOM (point))

		)
	    (forward-line))	      ; no infinite loop with, e.g., "#//"
	  )))))

(defun c-before-change (beg end)
  ;; Function to be put on `before-change-functions'.  Primarily, this calls
  ;; the language dependent `c-get-state-before-change-functions'.  It is
  ;; otherwise used only to remove stale entries from the `c-found-types'
  ;; cache, and to record entries which a `c-after-change' function might
  ;; confirm as stale.
  ;;
  ;; Note that this function must be FAST rather than accurate.  Note

	;; (c-new-BEG c-new-END) will be the region to fontify.  It may become
	;; larger than (beg end).
	(setq c-new-BEG beg
	      c-new-END end)
	(if c-get-state-before-change-functions
	    (mapc (lambda (fn)
		    (funcall fn beg end))
		  c-get-state-before-change-functions))
	))))

(defun c-after-change (beg end old-len)
  ;; Function put on `after-change-functions' to adjust various caches
  ;; etc.  Prefer speed to finesse here, since there will be an order