[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r112991: Add some new scheme features (tiny change)
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] trunk r112991: Add some new scheme features (tiny change) |
Date: |
Sat, 15 Jun 2013 00:38:05 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 112991
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/9164
author: Simen Heggestøyl <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-14 17:37:49 -0700
message:
Add some new scheme features (tiny change)
* lisp/progmodes/scheme.el (scheme-font-lock-keywords-2):
Add export, import, library.
(library): Set indent function.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/progmodes/scheme.el scheme.el-20091113204419-o5vbwnq5f7feedwu-122
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-06-14 18:37:38 +0000
+++ b/lisp/ChangeLog 2013-06-15 00:37:49 +0000
@@ -1,3 +1,9 @@
+2013-06-15 Simen Heggestøyl <address@hidden> (tiny change)
+
+ * progmodes/scheme.el (scheme-font-lock-keywords-2):
+ Add export, import, library. (Bug#9164)
+ (library): Set indent function.
+
2013-06-14 Glenn Morris <address@hidden>
* term/xterm.el (xterm--query):
=== modified file 'lisp/progmodes/scheme.el'
--- a/lisp/progmodes/scheme.el 2013-03-16 22:08:22 +0000
+++ b/lisp/progmodes/scheme.el 2013-06-15 00:37:49 +0000
@@ -312,6 +312,8 @@
"call-with-input-file" "call-with-output-file" "case" "cond"
"do" "else" "for-each" "if" "lambda" "λ"
"let" "let*" "let-syntax" "letrec" "letrec-syntax"
+ ;; R6RS library subforms.
+ "export" "import"
;; SRFI 11 usage comes up often enough.
"let-values" "let*-values"
;; Hannes Haug <address@hidden> wants:
@@ -330,6 +332,10 @@
;;
;; Scheme `:' and `#:' keywords as builtins.
'("\\<#?:\\sw+\\>" . font-lock-builtin-face)
+ ;; R6RS library declarations.
+ '("(\\(\\<library\\>\\)\\s-*(?\\(\\sw+\\)?"
+ (1 font-lock-keyword-face)
+ (2 font-lock-type-face))
)))
"Gaudy expressions to highlight in Scheme modes.")
@@ -536,6 +542,7 @@
(put 'letrec-syntax 'scheme-indent-function 1)
(put 'syntax-rules 'scheme-indent-function 1)
(put 'syntax-case 'scheme-indent-function 2) ; not r5rs
+(put 'library 'scheme-indent-function 1) ; R6RS
(put 'call-with-input-file 'scheme-indent-function 1)
(put 'with-input-from-file 'scheme-indent-function 1)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r112991: Add some new scheme features (tiny change),
Glenn Morris <=