;; `c-set-fl-decl-start' for the detailed functionality.
(cons (c-set-fl-decl-start beg) end))
-(defvar c-standard-font-lock-fontify-region-function nil
- "Standard value of `font-lock-fontify-region-function'")
-
(defun c-font-lock-fontify-region (beg end &optional verbose)
;; Effectively advice around `font-lock-fontify-region' which extends the
;; region (BEG END), for example, to avoid context fontification chopping
(setq new-region (funcall fn new-beg new-end))
(setq new-beg (car new-region) new-end (cdr new-region)))
c-before-context-fontification-functions))))
- (funcall c-standard-font-lock-fontify-region-function
+ (funcall (default-value 'font-lock-fontify-region-function)
new-beg new-end verbose)))
(defun c-after-font-lock-init ()
;; Put on `font-lock-mode-hook'. This function ensures our after-change
- ;; function will get executed before the font-lock one. Amongst other
- ;; things.
+ ;; function will get executed before the font-lock one.
(remove-hook 'after-change-functions 'c-after-change t)
- (add-hook 'after-change-functions 'c-after-change nil t)
- (setq c-standard-font-lock-fontify-region-function
- (default-value 'font-lock-fontify-region-function)))
+ (add-hook 'after-change-functions 'c-after-change nil t))
(defun c-font-lock-init ()
"Set up the font-lock variables for using the font-lock support in CC Mode.
(defvar use-vc-backend) ;; dynamically bound
-;; Autoload cookie needed by desktop.el.
-;;;###autoload
(define-derived-mode vc-dir-mode special-mode "VC dir"
"Major mode for VC directory buffers.
Marking/Unmarking key bindings and actions:
Building and Installing Emacs on Windows
(from 95 to 7 and beyond)
- Copyright (C) 2001-2013 Free Software Foundation, Inc.
+ Copyright (C) 2001-2014 Free Software Foundation, Inc.
See the end of the file for license conditions.
*** This method of building Emacs is no longer supported. ***
Print $ as a scrollbar pointer.
end
-define xxwidget
- if $argc == 1
- xgetptr $arg0
- else
- xgetptr $
- end
- set $xw = (struct xwidget *) $ptr
- print $xw
- printf " Type: "
- xprintsym $xw->type
- echo \n
- printf " Title: "
- xgetptr $xw->title
- set $title = (struct Lisp_String *) $ptr
- xprintstr $title
- echo \n
-end
-document xxwidget
-Print $ assuming it is a xwidget.
-end
-
define xpr
xtype
if $type == Lisp_Int0 || $type == Lisp_Int1
if $vec == PVEC_HASH_TABLE
xhashtable
end
- if $vec == PVEC_XWIDGET
- xxwidget
- end
else
xvector
end