bug#3391: Bug#3391: 23.0.93; bookmarks-jump only works on second try

[henry atting <nsmp_01@online.de>]

[-- Attachment #1: Type: text/plain, Size: 1144 bytes --]

On Fr, Jun 19 2009, Glenn Morris wrote:

> henry atting wrote:
>
>> When trying to open a file with bookmark-jump the first try results in
>> an error message like this:
>>
>> Loading bookmark...done
>> Fontifying .emacs.bmk... (regexps...)
>> string-match: Wrong type argument: symbolp,
>> ("org-remember-last-stored" (filename . "~/notes.org")
>> (front-context-string . "** [2009-05-26 D") (rear-context-string . "
>> Di 14:52] test ") (position . 2403))
>
>
> Please give a complete recipe showing how to reproduce the problem,
> starting from emacs -Q with no .emacs.bmk file. Also, do M-x
> toggle-debug-on-error and include the resulting backtrace.
>
> I could not reproduce this in normal use of bookmarks, but it seems
> org is involved somehow.

Emacs started with `-Q' and a non-existing .emacs.bmk leads to no
problems. I can set bookmarks and jump to it. 

Emacs started as usual and no .emacs.bmk present causes no problems
either. But if I set a bookmark and start it again the above mentioned
behaviour reoccures. (As I don't use bookmarks this would be no problem,
but org-mode sets a bookmark when using org-remember)

henry


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: debug.txt --]
[-- Type: text/plain, Size: 3892 bytes --]

Debugger entered--Lisp error: (wrong-type-argument symbolp ("org-remember-last-stored" (filename . "~/notes.org") (front-context-string . "** [2009-06-19 F") (rear-context-string . "file:~/.emacs]]
") (position . 2181)))
  symbol-name(("org-remember-last-stored" (filename . "~/notes.org") (front-context-string . "** [2009-06-19 F") (rear-context-string . "file:~/.emacs]]\n") (position . 2181)))
  (string-match "@.*" (symbol-name (car-safe sexp)))
  (if (string-match "@.*" (symbol-name ...)) (progn (let ... ... ... ...) t))
  (when (string-match "@.*" (symbol-name ...)) (let (... ...) (set-marker begin-marker begin-point) (set-marker end-marker ...) (set-match-data ...)) t)
  (let ((begin-point ...)) (condition-case nil (setq sexp ...) (...)) (when (string-match "@.*" ...) (let ... ... ... ...) t))
  (let ((sexp nil)) (when (search-forward ... limit t) (backward-char 2)) (let (...) (condition-case nil ... ...) (when ... ... t)))
  linkd-match(379)
  funcall(linkd-match 379)
  (if (stringp matcher) (re-search-forward matcher end t) (funcall matcher end))
  (and (< (point) end) (if (stringp matcher) (re-search-forward matcher end t) (funcall matcher end)) (or (> ... ...) (progn ... t)))
  (while (and (< ... end) (if ... ... ...) (or ... ...)) (when (and font-lock-multiline ...) (put-text-property-unless-ignore ... ... ... t)) (setq highlights (cdr keyword)) (while highlights (if ... ... ... ... ...) (setq highlights ...)))
  (while keywords (if loudly (message "Fontifying %s... (regexps..%s)" bufname ...)) (setq keyword (car keywords) matcher (car keyword)) (goto-char start) (while (and ... ... ...) (when ... ...) (setq highlights ...) (while highlights ... ...)) (setq keywords (cdr keywords)))
  (let ((case-fold-search font-lock-keywords-case-fold-search) (keywords ...) (bufname ...) (count 0) (pos ...) keyword matcher highlights) (while keywords (if loudly ...) (setq keyword ... matcher ...) (goto-char start) (while ... ... ... ...) (setq keywords ...)) (set-marker pos nil))
  font-lock-fontify-keywords-region(1 379 t)
  font-lock-default-fontify-region(1 379 t)
  font-lock-fontify-region(1 379 t)
  byte-code("ŠÃ \x18ÄŽÅed	#ˆÆ ˆÇ‰\x12+‡" [save-match-data-internal verbose font-lock-fontified match-data ((byte-code "Á\bÂ\"‡" [save-match-data-internal set-match-data evaporate] 3)) font-lock-fontify-region font-lock-after-fontify-buffer t] 4)
  font-lock-default-fontify-buffer()
  font-lock-fontify-buffer()
  (let ((modified-p ...)) (add-hook (quote before-save-hook) (quote linkd-deactivate-all-datablocks) :append :local) (add-hook (quote after-save-hook) (quote linkd-activate-all-datablocks) :append :local) (linkd-do-font-lock (quote font-lock-add-keywords)) (font-lock-fontify-buffer) (set-buffer-modified-p modified-p))
  linkd-enable()
  (if linkd-mode (linkd-enable) (linkd-disable))
  (let ((last-message ...)) (setq linkd-mode (cond ... ... ...)) (if linkd-mode (linkd-enable) (linkd-disable)) (run-hooks (quote linkd-mode-hook) (if linkd-mode ... ...)) (if (called-interactively-p) (progn nil ...)))
  linkd-mode()
  run-hooks(text-mode-hook mytext-mode-hook)
  apply(run-hooks (text-mode-hook mytext-mode-hook))
  run-mode-hooks(mytext-mode-hook)
  (if (fboundp (quote run-mode-hooks)) (run-mode-hooks (quote mytext-mode-hook)) (run-hooks (quote mytext-mode-hook)))
  mytext-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer .emacs.bmk> "~/.emacs.bmk" nil nil "~/.emacs.bmk" (2532641 64513))
  find-file-noselect("/home/atting/.emacs.bmk")
  bookmark-load("~/.emacs.bmk" t t)
  bookmark-maybe-load-default-file()
  bookmark-completing-read("Jump to bookmark" nil)
  (list (bookmark-completing-read "Jump to bookmark" bookmark-current-bookmark))
  call-interactively(bookmark-jump t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)