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("ŠÃ ĎÅed #ˆÆ ˆÇ‰+‡" [save-match-data-internal verbose font-lock-fontified match-data ((byte-code "ÁÂ\"‡" [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(# "~/.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)