On Fri, 23 Oct 2009 12:56:15 -0700 Samuel Wales <samolog...@gmail.com> wrote:
> Minor correction and new error messages. > > The process filter error message was probably due to not running the > fireforg things in .emacs. I had commented them out because they take > several minutes to load the links in org-agenda-files, and when I > restarted emacs to try to get fireforg to work, they didn't get run. Generating and looking up the registry doesn't scale well. With a huge amount of links in the agenda files a proper database like sqlite would be needed instead of generating a huge xml file that needs to be parsed all the while. If I get time I might try that. > Here are new error messages. > > error in process filter: org-protocol-unhex-compound: Invalid > character: 8211, #o20023, #x2013 > error in process filter: Invalid character: 8211, #o20023, #x2013 Using only the org-protocol bookmarks I get the same error with Emacs 22 but not with Emacs 23, when trying to remember the URL: http://orgmode.org/worg/org-contrib/org-protocol.php A full backtrace is attached. 8211 seems to be the &ndash in the title. What Emacs version are you using? Sebastian, any idea? -- Andreas Debugger entered--Lisp error: (error "Invalid character: 8211, #o20023, #x2013") char-to-string(8211) (concat ret (char-to-string sum)) (setq ret (concat ret (char-to-string sum))) (progn (setq ret (concat ret ...)) (setq sum 0)) (if (= 0 eat) (progn (setq ret ...) (setq sum 0))) (when (= 0 eat) (setq ret (concat ret ...)) (setq sum 0)) (let* ((b ...) (a ...) (b ...) (c1 ...) (c2 ...) (val ...) (shift ...) (xor ...)) (if (>= val 192) (setq eat shift)) (setq val (logxor val xor)) (setq sum (+ ... val)) (if (> eat 0) (setq eat ...)) (when (= 0 eat) (setq ret ...) (setq sum 0))) (while bytes (let* (... ... ... ... ... ... ... ...) (if ... ...) (setq val ...) (setq sum ...) (if ... ...) (when ... ... ...))) (let* ((bytes ...) (ret "") (eat 0) (sum 0)) (while bytes (let* ... ... ... ... ... ...)) ret) org-protocol-unhex-compound("%20%E2%80%93%20") (let* ((start ...) (end ...) (hex ...) (replacement ...)) (setq tmp (concat tmp ... replacement)) (setq str (substring str end))) (while (string-match "\\(% [0-9a-f][0-9a-f]\\)+" str) (let* (... ... ... ...) (setq tmp ...) (setq str ...))) (let ((tmp "") (case-fold-search t)) (while (string-match "\ \(%[0-9a-f][0-9a-f]\\)+" str) (let* ... ... ...)) (setq tmp (concat tmp str)) tmp) org-protocol-unhex-string("org-protocol.el%20%E2%80%93% 20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom% 20actions") mapcar(org-protocol-unhex-string ("http%3A%2F%2Forgmode.org% 2Fworg%2Forg-contrib%2Forg-protocol.php" "org-protocol.el%20%E2%80%93% 20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom% 20actions" "")) (if (fboundp unhexify) (mapcar unhexify split-parts) (mapcar (quote org-protocol-unhex-string) split-parts)) (if unhexify (if (fboundp unhexify) (mapcar unhexify split-parts) (mapcar ... split-parts)) split-parts) (let* ((sep ...) (split-parts ...)) (if unhexify (if ... ... ...) split-parts)) org-protocol-split-data("http%3A %2F%2Forgmode.org%2Fworg%2Forg-contrib% 2Forg-protocol.php/org-protocol.el%20%E2%80%93%20Intercept%20calls% 20from%20emacsclient%20to%20trigger%20custom%20actions/" t) (let* ((parts ...) (template ...) (url ...) (type ...) (title ...) (region ...) (orglink ...) remember-annotation-functions) (setq org-stored-links (cons ... org-stored-links)) (kill-new orglink) (org-store-link-props :type type :link url :description title :initial region) (raise-frame) (org-remember nil (string-to-char template))) (if (and (boundp ...) (fboundp ...)) (let* (... ... ... ... ... ... ... remember-annotation-functions) (setq org-stored-links ...) (kill-new orglink) (org-store-link-props :type type :link url :description title :initial region) (raise-frame) (org-remember nil ...)) (message "Org-mode not loaded.")) org-protocol-remember("http%3A%2F%2Forgmode.org %2Fworg%2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93% 20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom% 20actions/") funcall(org-protocol-remember "http%3A%2F%2Forgmode.org% 2Fworg%2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93% 20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom% 20actions/") (throw (quote fname) (funcall func result)) (if greedy nil (throw (quote fname) (funcall func result))) (unless greedy (throw (quote fname) (funcall func result))) (progn (unless greedy (throw ... ...)) (funcall func result) (throw (quote fname) t)) (if (fboundp func) (progn (unless greedy ...) (funcall func result) (throw ... t))) (when (fboundp func) (unless greedy (throw ... ...)) (funcall func result) (throw (quote fname) t)) (let* ((func ...) (greedy ...) (splitted ...) (result ...)) (when (plist-get ... :kill-client) (message "Greedy org-protocol handler. Killing client.") (server-edit)) (when (fboundp func) (unless greedy ...) (funcall func result) (throw ... t))) (progn (let* (... ... ... ...) (when ... ... ...) (when ... ... ... ...))) (if (string-match proto fname) (progn (let* ... ... ...))) (when (string-match proto fname) (let* (... ... ... ...) (when ... ... ...) (when ... ... ... ...))) (let ((proto ...)) (when (string-match proto fname) (let* ... ... ...))) (while --cl-dolist-temp-- (setq prolist (car --cl-dolist-temp--)) (let (...) (when ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) (let ((--cl-dolist-temp-- sub-protocols) prolist) (while --cl-dolist-temp-- (setq prolist ...) (let ... ...) (setq --cl-dolist-temp-- ...)) nil) (catch (quote --cl-block-nil--) (let (... prolist) (while --cl-dolist-temp-- ... ... ...) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) (block nil (let (... prolist) (while --cl-dolist-temp-- ... ... ...) nil)) (dolist (prolist sub-protocols) (let (...) (when ... ...))) (progn (dolist (prolist sub-protocols) (let ... ...))) (if (string-match the-protocol fname) (progn (dolist ... ...))) (when (string-match the-protocol fname) (dolist (prolist sub-protocols) (let ... ...))) (let ((the-protocol ...)) (when (string-match the-protocol fname) (dolist ... ...))) (catch (quote fname) (let (...) (when ... ...)) fname) (let ((sub-protocols ...)) (catch (quote fname) (let ... ...) fname)) org-protocol-check-filename-for-protocol ("/home/andy/org-protocol:/remember:/http%3A%2F%2Forgmode.org%2Fworg% 2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93%20Intercept %20calls%20from%20emacsclient%20to%20trigger%20custom% 20actions/" (("/home/andy/org-protocol:/remember:/http%3A%2F% 2Forgmode.org%2Fworg%2Forg-contrib%2Forg-protocol.php/org-protocol.el% 20%E2%80%93%20Intercept%20calls%20from%20emacsclient%20to%20trigger% 20custom%20actions/" 1 0)) (#<process server <*8*>>)) byte-code (<bytecode removed> [flist var --cl-dolist-temp-- fname client files nil expand-file-name org-protocol-check-filename-for-protocol t throw greedy delq] 5) server-visit-files ((("/home/andy/org-protocol:/remember:/http%3A%2F%2Forgmode.org%2Fworg% 2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93%20Intercept %20calls%20from%20emacsclient%20to%20trigger%20custom%20actions/" 1 0)) (#<process server <*8*>>) nil) byte-code(<bytecode removed> [proc string prev --cl-proc-- default-enable-multibyte-characters file-name-coding-system process-get :authenticated string-match "-auth \ \(.*?\\)\n" match-string 1 :auth-key 0 nil process-put t server-log "Authentication successful" "Authentication failed" process-send-string delete-process throw --cl-block-server-process-filter-- :previous-string recursion-depth run-with-timer make-symbol "--proc--" lambda (&rest --cl-rest--) apply # [(G47000) <bytecode removed> [G47000 server-process-filter ""] 3] quote --cl-rest-- top-level (byte-code <bytecode reoved> [mapc #[... <bytecode removed> [buffer isearch-mode boundp isearch-cancel] 2] buffer-list] 3) ((quit ...)) "\n" "[^ ]* " "-nowait" "-eval" "-display" "\\([^ ]*\\) " server-unquote-arg err (byte-code <bytecode removed> [display tmp-frame server-select-display] 2) ((error ...)) "\\`\\+[0-9]+ \\'" string-to-number ...] 10) server-process-filter(#<process server <*8*>> "/home/andy/org-protocol://remember://http%3A%2F%2Forgmode.org% 2Fworg%2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93% 20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom% 20actions/ \n") _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode