|
Last change
on this file was 6567, checked in by Gary Byers, 18 years ago |
|
Move lots of (currently unused, often unlikely to ever be used) stuff to an
archive directory.
|
-
Property svn:eol-style
set to
native
-
Property svn:keywords
set to
Author Date Id Revision
|
|
File size:
1.4 KB
|
| Line | |
|---|
| 1 | ;;; -*- Log: hemlock.log; Package: Hemlock -*-
|
|---|
| 2 | ;;;
|
|---|
| 3 | ;;; **********************************************************************
|
|---|
| 4 | ;;; This code was written as part of the CMU Common Lisp project at
|
|---|
| 5 | ;;; Carnegie Mellon University, and has been placed in the public domain.
|
|---|
| 6 | ;;;
|
|---|
| 7 | #+CMU (ext:file-comment
|
|---|
| 8 | "$Header$")
|
|---|
| 9 | ;;;
|
|---|
| 10 | ;;; **********************************************************************
|
|---|
| 11 | ;;;
|
|---|
| 12 | ;;; Just barely enough to be a Pascal/C mode. Maybe more some day.
|
|---|
| 13 | ;;;
|
|---|
| 14 | (in-package :hemlock)
|
|---|
| 15 |
|
|---|
| 16 | (defmode "Pascal" :major-p t)
|
|---|
| 17 | (defcommand "Pascal Mode" (p)
|
|---|
| 18 | "Put the current buffer into \"Pascal\" mode."
|
|---|
| 19 | "Put the current buffer into \"Pascal\" mode."
|
|---|
| 20 | (declare (ignore p))
|
|---|
| 21 | (setf (buffer-major-mode (current-buffer)) "Pascal"))
|
|---|
| 22 |
|
|---|
| 23 | (defhvar "Indent Function"
|
|---|
| 24 | "Indentation function which is invoked by \"Indent\" command.
|
|---|
| 25 | It must take one argument that is the prefix argument."
|
|---|
| 26 | :value #'generic-indent
|
|---|
| 27 | :mode "Pascal")
|
|---|
| 28 |
|
|---|
| 29 | (defhvar "Auto Fill Space Indent"
|
|---|
| 30 | "When non-nil, uses \"Indent New Comment Line\" to break lines instead of
|
|---|
| 31 | \"New Line\"."
|
|---|
| 32 | :mode "Pascal" :value t)
|
|---|
| 33 |
|
|---|
| 34 | (defhvar "Comment Start"
|
|---|
| 35 | "String that indicates the start of a comment."
|
|---|
| 36 | :mode "Pascal" :value "(*")
|
|---|
| 37 |
|
|---|
| 38 | (defhvar "Comment End"
|
|---|
| 39 | "String that ends comments. Nil indicates #\newline termination."
|
|---|
| 40 | :mode "Pascal" :value " *)")
|
|---|
| 41 |
|
|---|
| 42 | (defhvar "Comment Begin"
|
|---|
| 43 | "String that is inserted to begin a comment."
|
|---|
| 44 | :mode "Pascal" :value "(* ")
|
|---|
| 45 |
|
|---|
| 46 | (shadow-attribute :scribe-syntax #\< nil "Pascal")
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
