sexp comments in bee-mode
Robert Sachunsky <[email protected]>
| Newsgroups | gmane.lisp.scheme.bigloo |
|---|---|
| Message-ID | <[email protected]> |
Hi Manuel, with Bee currently not getting #; comments right in GNU Emacs 24, I dived into bee-mode.el and managed to get it working again. See below for a patch. Regards, Robert
bee-mode-sexp-comments.patch
(text/x-patch, 1.7 KB)
--- bmacs/bee/bee-mode.el.orig 2017-01-25 09:53:41.000000000 +0100
+++ bmacs/bee/bee-mode.el 2017-03-23 16:19:13.518082254 +0100
@@ -96,7 +96,7 @@
;; Other atom delimiters
(modify-syntax-entry ?\( "() " local-syntax-table)
(modify-syntax-entry ?\) ")( " local-syntax-table)
- (if (or t (< bmacs-emacs-version 22))
+ (if (< bmacs-emacs-version 22)
(modify-syntax-entry ?\; "< " local-syntax-table)
(modify-syntax-entry ?\; "< 2 " local-syntax-table))
(modify-syntax-entry ?\" "\" " local-syntax-table)
@@ -106,9 +106,9 @@
;; Special characters
(modify-syntax-entry ?, "' " local-syntax-table)
- (if (or t (< bmacs-emacs-version 22))
+ (if (< bmacs-emacs-version 22)
(modify-syntax-entry ?# "' " local-syntax-table)
- (modify-syntax-entry ?# "' 14b" local-syntax-table))
+ (modify-syntax-entry ?# "' 14" local-syntax-table))
(modify-syntax-entry ?\\ "\\ " local-syntax-table)
;; legal Bigloo identifier chars that are not recognized by the \w syntax
@@ -263,9 +263,9 @@
;; the bee hook
(run-hooks 'bee-mode-hook)
;; turn on font-lock
- (when ude-font-lock-p
- (font-lock-mode nil)
- (font-lock-mode t)))
+ (if ude-font-lock-p
+ (font-lock-mode t)
+ (font-lock-mode nil)))
;*---------------------------------------------------------------------*/
;* bee-set-font-lock ... */
@@ -307,7 +307,6 @@
(forward-sexp 1)
(point))
(scan-error (nth 2 err)))))
- (message-box "start: %a end: %a" pos end)
(when (< pos (- end 2))
(put-text-property pos (- end 2)
'syntax-table bee-sexp-comment-syntax-table))