Mercurial > hg > xemacs-beta
annotate lisp/check-features.el @ 5552:85210c453a97
Fix performance regression in refactored syntax cache setup.
More doc improvements.
* syntax.h (enum syntax_source):
New. Specify whether syntax is from property or buffer.
(struct syntax_cache):
Use enum syntax_source source, instead of no_syntax_table_prop
and use_code.
Improve comments.
(SOURCE_IS_TABLE):
New predicate.
(SYNTAX_CODE_FROM_CACHE):
Use it instead of use_code, and adjust logic.
* syntax.c (syntax_cache_table_was_changed):
Check cache->source (cache->no_syntax_table_prop is gone).
(reset_syntax_cache_range):
All information about OBJECT and BUFFER is in CACHE already.
Also reset markers in OBJECT if it is a buffer.
Rename INFINITE to VALID_EVERYWHERE.
(init_syntax_cache):
Initialize source (cache->no_syntax_table_prop is gone).
Maybe initialize start and end to null markers.
Initialize cache range with reset_syntax_cache_range.
(update_syntax_cache):
Use source instead of no_syntax_table_prop and use_code.
(setup_syntax_cache):
Add header comment. Improve other comments.
Make calls to reset_syntax_cache_range and init_syntax_cache match
their prototypes.
(init_buffer_syntax_cache):
Use init_syntax_cache to do the work.
(signal_syntax_cache_extent_changed):
Make call to reset_syntax_cache_range match its prototype.
Improve local variable naming.
author | Stephen J. Turnbull <stephen@xemacs.org> |
---|---|
date | Tue, 23 Aug 2011 04:41:45 +0900 |
parents | 308d34e9f07d |
children |
rev | line source |
---|---|
428 | 1 ;;; check-features.el --- Do a sanity check on an XEmacs build |
2 | |
3 ;; Copyright (C) 1998 by Free Software Foundation, Inc. | |
793 | 4 ;; Copyright (C) 2002 Ben Wing. |
428 | 5 |
6 ;; Author: SL Baur <steve@xemacs.org> | |
7 ;; Keywords: internal | |
8 | |
9 ;; This file is part of XEmacs. | |
10 | |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
11 ;; XEmacs is free software: you can redistribute it and/or modify it |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
12 ;; under the terms of the GNU General Public License as published by the |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
13 ;; Free Software Foundation, either version 3 of the License, or (at your |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
14 ;; option) any later version. |
428 | 15 |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
19 ;; for more details. |
428 | 20 |
21 ;; You should have received a copy of the GNU General Public License | |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
793
diff
changeset
|
22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
428 | 23 |
24 ;;; Synched up with: Not in FSF | |
25 | |
26 ;;; Commentary: | |
27 | |
28 ;; This file is executed after a build to check that all lisp packages that | |
29 ;; need to be installed are. | |
30 | |
31 ;;; Code: | |
32 | |
33 (require 'packages) | |
34 | |
35 (defvar build-error 0) | |
36 | |
37 (when (featurep 'tooltalk) | |
38 (condition-case nil | |
39 (package-require 'tooltalk 1.0) | |
40 (t (progn | |
41 ;; (setq build-error 1) | |
793 | 42 (lwarn 'tooltalk 'alert |
43 "Warning: This XEmacs is built with tooltalk support but | |
44 does not have a tooltalk package installed. Without the | |
45 tooltalk lisp package, Tooltalk support is broken."))))) | |
428 | 46 |
47 (when (featurep 'sparcworks) | |
48 (condition-case nil | |
49 (package-require 'Sun 1.0) | |
50 (t (progn | |
51 ;; (setq build-error 1) | |
793 | 52 (lwarn 'sparcworks 'alert |
53 "Warning: This XEmacs is built with sparcworks support but | |
54 does not have the Sun package installed. Without the Sun | |
55 lisp package, Sparcworks support will be broken."))))) | |
428 | 56 |
57 (kill-emacs build-error) | |
58 | |
59 ;;; check-features.el ends here |