emacs-wiki-discuss
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [emacs-wiki-discuss] Re: "Trailing backslash" error generated when


From: Tim O Callaghan
Subject: Re: [emacs-wiki-discuss] Re: "Trailing backslash" error generated when trying to use Muse mode
Date: Fri, 29 Jul 2005 08:37:13 +0100 (IST)
User-agent: SquirrelMail/1.4.4

> "Tim O Callaghan" <address@hidden> writes:
>
>> I've been trying in vain to get muse mode working on my win2k Xemacs
installation. I get the error "Trailing backslash" generated by
something, whenever i try and enable muse-mode.
>>
>> I even tried using the examples/mwolson/muse-init.el as the config script.
>>
>> Error generated using muse 3.01.91, examples/mwolson/muse-init.el, opening
>> the examples/QuickStart and attempting M-x muse-mode. At one point i
had to use vi, to disable muse mode, as the "Trailing backslash" error
was generated any time i tried to open a file, and not loading the
file.
>
> If you could, please check out
> http://www.mwolson.org/projects/ReportingEmacsLispBugs.html and email
the list a backtrace that corresponds with this "Trailing backslash"
error.
>

This is exactly what i did yesterday, but as i was replying to my own
email, it did not go to the list. Doh!

here is is again
---
After a bit more digging, i know where the problem is.
In the function muse-project-of-file in muse-project.el when it tries a
'string-match' on the two windows paths, it dies. I guess its the ':' in
the regexp thats the problem.

Here's the debugger backtrace output.
Debugger entered--Lisp error: (invalid-regexp "Trailing backslash")
  string-match("c:\\home\\tim\\projects\\"
"c:\\home\\tim\\.xemacs\\site-lisp\\muse\\examples\\QuickStart")
  (or (string= truename file) (string= truename dir) (string-match
truename file))
  (if (or (string= truename file) (string= truename dir) (string-match
truename file)) (setq found (car project-entry)))
  (let ((truename ...)) (if (or ... ... ...) (setq found ...)))
  (if (symbolp (car pats)) (setq pats (cddr pats)) (let (...) (if ...
...)) (setq pats (cdr pats)))
  (while (and pats (not found)) (if (symbolp ...) (setq pats ...) (let ...
...) (setq pats ...)))
  (let ((pats ...)) (while (and pats ...) (if ... ... ... ...)) (setq
project-entry (cdr project-entry)))
  (while (and project-entry (not found)) (let (...) (while ... ...) (setq
project-entry ...)))
  (let* ((file ...) (dir ...) (project-entry muse-project-alist) found)
(while (and project-entry ...) (let ... ... ...)) found)
  (if (and pathname (not ...)) (let* (... ... ... found) (while ... ...)
found))
  (when (and pathname (not ...)) (let* (... ... ... found) (while ... ...)
found))
  (progn (when (and pathname ...) (let* ... ... found)))
  (unwind-protect (progn (when ... ...)) (store-match-data match-data))
(let ((match-data ...)) (unwind-protect (progn ...) (store-match-data
match-data)))
  (save-match-data (when (and pathname ...) (let* ... ... found))) (if
(and (null pathname) muse-current-project) muse-current-project
(unless pathname (setq pathname ...)) (save-match-data (when ... ...)))
  muse-project-of-file()
  (setq muse-current-project (muse-project-of-file))
  (lambda nil "Muse is an Emacs mode for authoring and publishing
documents.\n\\{muse-mode-map}" (interactive) (text-mode) (if (get ... ...)
(put ... ... t)) (let (...) (if mode-class ...)) (setq major-mode (quote
muse-mode)) (setq mode-name "Muse") (derived-mode-set-keymap (quote
muse-mode)) (derived-mode-set-syntax-table (quote muse-mode))
(derived-mode-set-abbrev-table (quote muse-mode)) (condition-case err
(hack-local-variables) (error ...)) (unless muse-mode-intangible-links
(set ... t)) (setq muse-current-project (muse-project-of-file))
(muse-project-set-variables) (muse-update-ignored-extensions-regexp (quote
muse-ignored-extensions) muse-ignored-extensions) (when (boundp ...)
(make-local-variable ...) (if ... ... ...)) (set
(make-local-variable ...) (concat "[" muse-regexp-blank "]*\\(-+["
muse-regexp-blank "]*\\|[0-9]+\\.[" muse-regexp-blank "]*\\)*")) (when
(featurep ...) (set ... ...) (set ... ...) (set ... ...)) (when
muse-mode-highlight-p (muse-use-font-lock)) (derived-mode-run-hooks (quote
muse-mode)))()
  call-interactively(muse-mode)
  command-execute(muse-mode t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

This means (i guess) its broken if i have a muse-projects-alist set up :(

Tim.











reply via email to

[Prev in Thread] Current Thread [Next in Thread]