Mercurial > emacs
comparison lisp/generic-x.el @ 51716:dad40750b182
Did away with the dependency on `c-emacs-features' when populating
`rul-generic-mode-syntax-table'; we already know this isn't XEmacs.
author | Martin Stjernholm <mast@lysator.liu.se> |
---|---|
date | Fri, 04 Jul 2003 10:47:06 +0000 |
parents | e8baa2ffdd8f |
children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
51715:6e2487a7e9ff | 51716:dad40750b182 |
---|---|
1 ;;; generic-x.el --- Extra Modes for generic-mode -*- no-byte-compile: t -*- | 1 ;;; generic-x.el --- Extra Modes for generic-mode -*- no-byte-compile: t -*- |
2 | 2 |
3 ;; Copyright (C) 1997, 1998 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1997, 1998, 2003 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Peter Breton <pbreton@cs.umb.edu> | 5 ;; Author: Peter Breton <pbreton@cs.umb.edu> |
6 ;; Created: Tue Oct 08 1996 | 6 ;; Created: Tue Oct 08 1996 |
7 ;; Keywords: generic, comment, font-lock | 7 ;; Keywords: generic, comment, font-lock |
8 | 8 |
1409 (make-syntax-table c++-mode-syntax-table)) | 1409 (make-syntax-table c++-mode-syntax-table)) |
1410 | 1410 |
1411 (modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table) | 1411 (modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table) |
1412 (modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table) | 1412 (modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table) |
1413 | 1413 |
1414 (cond | 1414 (modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table) |
1415 ;; XEmacs 19 & 20 & 21 | 1415 (modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) |
1416 ((memq '8-bit c-emacs-features) | |
1417 (modify-syntax-entry ?/ ". 1456" rul-generic-mode-syntax-table) | |
1418 (modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) | |
1419 ) | |
1420 ;; Emacs 19 & 20 | |
1421 ((memq '1-bit c-emacs-features) | |
1422 (modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table) | |
1423 (modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) | |
1424 ) | |
1425 ;; incompatible | |
1426 (t (error "Run Mode is incompatible with this version of Emacs")) | |
1427 ) | |
1428 | 1416 |
1429 ;; here manually instead | 1417 ;; here manually instead |
1430 (defun generic-rul-mode-setup-function () | 1418 (defun generic-rul-mode-setup-function () |
1431 (make-local-variable 'parse-sexp-ignore-comments) | 1419 (make-local-variable 'parse-sexp-ignore-comments) |
1432 (make-local-variable 'comment-start) | 1420 (make-local-variable 'comment-start) |