Update of /var/lib/cvs/src/tools/elisp
In directory cantor:/tmp/cvs-serv31124
Modified Files:
dylan-mode.el
Log Message:
Bug: 7061
Make sure font-lock-dont-widen (only available post-21.3) is defined
before attempting to use it.
Index: dylan-mode.el
===================================================================
RCS file: /var/lib/cvs/src/tools/elisp/dylan-mode.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- dylan-mode.el 29 May 2004 08:45:40 -0000 1.12
+++ dylan-mode.el 27 Jun 2004 00:10:50 -0000 1.13
@@ -1182,6 +1182,18 @@
(make-local-variable 'font-lock-syntax-table)
(setq font-lock-syntax-table dylan-indent-syntax-table))
(set-syntax-table dylan-indent-syntax-table)
+
+ ;; font-lock-dont-widen is a feature in the post-21.3 version of emacs, so
+ ;; make sure it exists before attempting to use it. As I am writing this,
+ ;; 21.3 is the current version and this variable only exists in development
+ ;; builds. Unfortunately, if it doesn't exist, we don't get proper
+ ;; suppression of interchange file header fontification, but defining our
+ ;; own at least makes dylan-font-lock-fontify-region silently overlook this
+ ;; rather than fail with an "undefined variable" error.
+ (unless (boundp 'font-lock-dont-widen)
+ (make-local-variable 'font-lock-dont-widen)
+ (setq font-lock-dont-widen nil))
+
(make-local-variable 'indent-line-function)
(setq indent-line-function 'dylan-indent-line)
(make-local-variable 'comment-start)
_______________________________________________
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
http://www.gwydiondylan.org/mailman/listinfo/gd-chatter
|
| 
