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. _______________________________________________ Mailing list: https://launchpad.net/~nxhtml Post to : [email protected] Unsubscribe : https://launchpad.net/~nxhtml More help : https://help.launchpad.net/ListHelp
