1 |
;;; generic-x.el --- Extra Modes for generic-mode -*- no-byte-compile: t -*- |
;;; generic-x.el --- Extra Modes for generic-mode -*- no-byte-compile: t -*- |
2 |
|
|
3 |
;; Copyright (C) 1997, 1998 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 1998, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Peter Breton <pbreton@cs.umb.edu> |
;; Author: Peter Breton <pbreton@cs.umb.edu> |
6 |
;; Created: Tue Oct 08 1996 |
;; Created: Tue Oct 08 1996 |
1411 |
(modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table) |
(modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table) |
1412 |
(modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table) |
(modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table) |
1413 |
|
|
1414 |
(cond |
(modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table) |
1415 |
;; XEmacs 19 & 20 & 21 |
(modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) |
|
((memq '8-bit c-emacs-features) |
|
|
(modify-syntax-entry ?/ ". 1456" rul-generic-mode-syntax-table) |
|
|
(modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) |
|
|
) |
|
|
;; Emacs 19 & 20 |
|
|
((memq '1-bit c-emacs-features) |
|
|
(modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table) |
|
|
(modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) |
|
|
) |
|
|
;; incompatible |
|
|
(t (error "Run Mode is incompatible with this version of Emacs")) |
|
|
) |
|
1416 |
|
|
1417 |
;; here manually instead |
;; here manually instead |
1418 |
(defun generic-rul-mode-setup-function () |
(defun generic-rul-mode-setup-function () |
1879 |
|
|
1880 |
(provide 'generic-x) |
(provide 'generic-x) |
1881 |
|
|
1882 |
|
;;; arch-tag: cde692a5-9ff6-4506-9999-c67999c2bdb5 |
1883 |
;;; generic-x.el ends here |
;;; generic-x.el ends here |