/[emacs]/emacs/lisp/generic-x.el
ViewVC logotype

Diff of /emacs/lisp/generic-x.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16.4.1 by miles, Fri Apr 4 06:20:06 2003 UTC revision 1.16.4.2 by miles, Tue Oct 14 23:51:05 2003 UTC
# Line 1  Line 1 
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
# Line 1411  you must reload generic-x to enable the Line 1411  you must reload generic-x to enable the
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 ()
# Line 1891  you must reload generic-x to enable the Line 1879  you must reload generic-x to enable the
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

Legend:
Removed from v.1.16.4.1  
changed lines
  Added in v.1.16.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26