Mercurial > emacs

comparison lisp/generic-x.el @ 51716:dad40750b182

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)