nxhtml team mailing list archive

[Peter <question171217@xxxxxxxxxxxxxxxxxxxxx>]

New question #171217 on nXhtml:
https://answers.launchpad.net/nxhtml/+question/171217

Hello,

How can I get syntax highlighting in the C sub-mode, when the major mode
is context?

Here my setup (latest versions of emacs, nxhtml and auctex):

file test.el:
--8<---------------cut here---------------start------------->8---
(load "~/emacs/packages/nxhtml/autostart")
(add-to-list 'load-path "~/emacs/packages/auctex")
(load "auctex")

(defun mumamo-chunk-ctx-c (pos max)
  (mumamo-quick-chunk-forward pos max "\\startC" "\\stopC"
                              'borders 'c-mode))

(add-to-list 'auto-mode-alist '("\\.tex\\'" . context-mumamo-mode))

(define-mumamo-multi-major-mode context-mumamo-mode
  "Turn on multiple major modes for ConTeXt with main mode `context-mode'."
  ("ConTeXt Family" context-mode (mumamo-chunk-ctx-c)))
--8<---------------cut here---------------end--------------->8---

file test.tex:
--8<---------------cut here---------------start------------->8---
\starttext
\startC
/* comment */
void func(void)
{
    if(bla)
        blub;
}
\stopC
$a+b$ % math
\stoptext
--8<---------------cut here---------------end--------------->8---

command:   "emacs -l test.el test.tex"

Result: no syntax highlighting in C-mode, and some error messages.

compile-log buffer:
--8<---------------cut here---------------start------------->8---
Error: Wrong type argument: number-or-marker-p, nil
--8<---------------cut here---------------end--------------->8---

message buffer:
--8<---------------cut here---------------start------------->8---
Assertion failed: (functionp byte-compiled-fun)
- Please try M-: (mumamo-post-command-1) to see what happened.
nil
Symbol's function definition is void: mumamo-border-mode
- Please try M-: (mumamo-post-command-1) to see what happened.
--8<---------------cut here---------------end--------------->8---

And in the backtrace buffer after invoking (mumamo-post-command-1):
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (void-function mumamo-border-mode)
  mumamo-border-mode()
  funcall(mumamo-border-mode)
  (let ((mumamo-fetching-major t)) (funcall major))
  (save-current-buffer (set-buffer temp-buf) (let ((mumamo-fetching-major t)) (funcall major)) (setq local-map (current-local-map)) (when local-map (setq local-map (copy-keymap (current-local-map)))) (add-to-list (quote mumamo-major-modes-local-maps) (cons major-mode local-map)) (unless (eq major major-mode) (add-to-list (quote mumamo-major-modes-local-maps) (cons major local-map))))
  (with-current-buffer temp-buf (let ((mumamo-fetching-major t)) (funcall major)) (setq local-map (current-local-map)) (when local-map (setq local-map (copy-keymap (current-local-map)))) (add-to-list (quote mumamo-major-modes-local-maps) (cons major-mode local-map)) (unless (eq major major-mode) (add-to-list (quote mumamo-major-modes-local-maps) (cons major local-map))))
  (let (temp-buf-name temp-buf local-map) (setq temp-buf-name (concat "mumamo-fetch-major-mode-local-" (symbol-name major))) (setq temp-buf (get-buffer temp-buf-name)) (when temp-buf (kill-buffer temp-buf)) (setq temp-buf (get-buffer-create temp-buf-name)) (with-current-buffer temp-buf (let ((mumamo-fetching-major t)) (funcall major)) (setq local-map (current-local-map)) (when local-map (setq local-map (copy-keymap (current-local-map)))) (add-to-list (quote mumamo-major-modes-local-maps) (cons major-mode local-map)) (unless (eq major major-mode) (add-to-list (quote mumamo-major-modes-local-maps) (cons major local-map)))) (kill-buffer temp-buf) local-map)
  mumamo-fetch-local-map(mumamo-border-mode)
  (setq map (mumamo-fetch-local-map major))
  (if map nil (setq map (mumamo-fetch-local-map major)))
  (unless map (setq map (mumamo-fetch-local-map major)))
  (let* ((map-rec (assoc major mumamo-major-modes-local-maps)) (map (cdr map-rec))) (unless map (setq map (mumamo-fetch-local-map major))) (unless (eq map (quote no-local-map)) (use-local-map map)) (add-hook (quote pre-command-hook) (quote mumamo-set-major-pre-command) nil t) (mumamo-request-idle-set-major-mode))
  (if (<= 0 mumamo-set-major-mode-delay) (let* ((map-rec (assoc major mumamo-major-modes-local-maps)) (map (cdr map-rec))) (unless map (setq map (mumamo-fetch-local-map major))) (unless (eq map (quote no-local-map)) (use-local-map map)) (add-hook (quote pre-command-hook) (quote mumamo-set-major-pre-command) nil t) (mumamo-request-idle-set-major-mode)) (mumamo-set-major major ovl) (message "Switched to %s" major-mode))
  (if mumamo-done-first-set-major (if (<= 0 mumamo-set-major-mode-delay) (let* ((map-rec (assoc major mumamo-major-modes-local-maps)) (map (cdr map-rec))) (unless map (setq map (mumamo-fetch-local-map major))) (unless (eq map (quote no-local-map)) (use-local-map map)) (add-hook (quote pre-command-hook) (quote mumamo-set-major-pre-command) nil t) (mumamo-request-idle-set-major-mode)) (mumamo-set-major major ovl) (message "Switched to %s" major-mode)) (mumamo-set-major major ovl))
  (if (not set-it-now) (unless (mumamo-fun-eq major major-mode) (when mumamo-idle-set-major-mode-timer (mumamo-request-idle-set-major-mode))) (if mumamo-done-first-set-major (if (<= 0 mumamo-set-major-mode-delay) (let* ((map-rec (assoc major mumamo-major-modes-local-maps)) (map (cdr map-rec))) (unless map (setq map (mumamo-fetch-local-map major))) (unless (eq map (quote no-local-map)) (use-local-map map)) (add-hook (quote pre-command-hook) (quote mumamo-set-major-pre-command) nil t) (mumamo-request-idle-set-major-mode)) (mumamo-set-major major ovl) (message "Switched to %s" major-mode)) (mumamo-set-major major ovl)))
  (let* ((in-pre-hook (memq (quote mumamo-set-major-pre-command) pre-command-hook)) (ovl (unless in-pre-hook (mumamo-post-command-get-chunk (point)))) (major (when ovl (mumamo-chunk-keyboard-major-mode ovl (point)))) (set-it-now (not (or in-pre-hook (mumamo-fun-eq major major-mode))))) (if (not set-it-now) (unless (mumamo-fun-eq major major-mode) (when mumamo-idle-set-major-mode-timer (mumamo-request-idle-set-major-mode))) (if mumamo-done-first-set-major (if (<= 0 mumamo-set-major-mode-delay) (let* ((map-rec (assoc major mumamo-major-modes-local-maps)) (map (cdr map-rec))) (unless map (setq map (mumamo-fetch-local-map major))) (unless (eq map (quote no-local-map)) (use-local-map map)) (add-hook (quote pre-command-hook) (quote mumamo-set-major-pre-command) nil t) (mumamo-request-idle-set-major-mode)) (mumamo-set-major major ovl) (message "Switched to %s" major-mode)) (mumamo-set-major major ovl))))
  mumamo-set-major-post-command()
  (if font-lock-mode (mumamo-set-major-post-command))
  mumamo-post-command-1()
  eval((mumamo-post-command-1) nil)
  eval-expression((mumamo-post-command-1) nil)
  call-interactively(eval-expression nil nil)
--8<---------------cut here---------------end--------------->8---

I don't know, if the missing syntax highlighting is related to the error
messages...

TIA for any help!
Peter


-- 
You received this question notification because you are a member of
nXhtml, which is an answer contact for nXhtml.