nxhtml team mailing list archive

["Yary.H" <question49234@xxxxxxxxxxxxxxxxxxxxx>]

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

Hello,

I'm editing ksh scripts that embed perl and SQL here-documents. I'd like to customize a MuMaMo mode for that, but don't know a good example to follow or documentation about creating new MuMaMos. Can you point me to some?

I'm using MuMaMo "0.88" that came with nxhtml/W32 perl, GNU Emacs 23.0.60.1 (i386-mingw-nt5.1.2600)

Also, when I try setting cperl-mumamo for one of them, I get this error-
Debugger entered--Lisp error: (wrong-type-argument listp t)
  nth(0 t)
  (progn (nth 0 rborder))
  (if rborder (progn (nth 0 rborder)))
  (when rborder (nth 0 rborder))
  (let* ((r ...) (rmin ...) (rmax ...) (rmajor-sub ...) (rborder ...) (rparseable ...) (rborder-min ...) (rborder-max ...) (rmax-found rmax)) (mumamo-msgfntfy "  fn=%s, r=%s" fn r) (unless rmin (setq rmin ...)) (unless rmax (setq rmax ...)) (unless (and ... ...) (if ... ... ...)) (mumamo-msgfntfy "min/max=%s/%s border=%s/%s pos=%s" min max border-min border-max pos) (when (and min max) (assert ... t) (assert ... t) (when border-min ... ...) (when border-max ... ...)))
  (while --cl-dolist-temp-- (setq fn (car --cl-dolist-temp--)) (let* (... ... ... ... ... ... ... ... ...) (mumamo-msgfntfy "  fn=%s, r=%s" fn r) (unless rmin ...) (unless rmax ...) (unless ... ...) (mumamo-msgfntfy "min/max=%s/%s border=%s/%s pos=%s" min max border-min border-max pos) (when ... ... ... ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- chunk-fns) fn) (while --cl-dolist-temp-- (setq fn ...) (let* ... ... ... ... ... ... ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... fn) (while --cl-dolist-temp-- ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... fn) (while --cl-dolist-temp-- ... ... ...) nil))
  (dolist (fn chunk-fns) (let* (... ... ... ... ... ... ... ... ...) (mumamo-msgfntfy "  fn=%s, r=%s" fn r) (unless rmin ...) (unless rmax ...) (unless ... ...) (mumamo-msgfntfy "min/max=%s/%s border=%s/%s pos=%s" min max border-min border-max pos) (when ... ... ... ... ...)))
  (let* ((chunk-info ...) (chunk-fns ...) (here ...) min max border-min border-max parseable (max-found nil) major-sub) (dolist (fn chunk-fns) (let* ... ... ... ... ... ... ...)) (goto-char here) (list min (when max-found max) major-sub border-min border-max parseable))
  mumamo-create-chunk-values-at(899)
  (let ((new-chunk-values ...) (new-chunk)) (mumamo-msgfntfy "mumamo-create-chunk-at %s, ncv=%s" pos new-chunk-values) (mumamo-adjust-old-chunks new-chunk-values nil nil) (setq new-chunk (mumamo-create-chunk-from-chunk-values new-chunk-values)) (mumamo-mark-for-refontification (overlay-start new-chunk) (overlay-end new-chunk)) new-chunk)
  mumamo-create-chunk-at(899)
  (setq chunk-ovl (mumamo-create-chunk-at pos))
  (if chunk-ovl (unless (and ... ...) (error "Mumamo-get-chunk-at: start=%s, pos=%s, end=%s" ... pos ...)) (setq chunk-ovl (mumamo-create-chunk-at pos)))
  (let ((chunk-ovl ...)) (if chunk-ovl (unless ... ...) (setq chunk-ovl ...)) chunk-ovl)
  mumamo-get-chunk-at(899)
  (let* ((ovl ...) (major ...) (in-pre-hook ...)) (if (not major) (lwarn ... :error "major=%s" major) (unless ... ...)))
  mumamo-set-major-post-command()
  (if font-lock-mode (mumamo-set-major-post-command))
  mumamo-post-command-1()
  eval((mumamo-post-command-1))
  eval-expression((mumamo-post-command-1) nil)
  call-interactively(eval-expression nil nil)

If there are better forum(s) for the above, let me know. Took a quick look for mailing lists / newgroups and didn't find any.

Thanks much

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