diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-11-20 20:19:40 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-11-20 20:19:40 +0100 |
commit | 7668306fca1194030f48f9fcac3fe32612bee88a (patch) | |
tree | 678485785f9623d8ba6fe243177a604cb55d71e0 | |
parent | 1cf50b7eb066e84664e16255d169c0a1cb7428c8 (diff) | |
download | org-mode-7668306fca1194030f48f9fcac3fe32612bee88a.tar.gz |
Fix bug with message and headlines containing `%'
Report by Bernt Hansen
-rwxr-xr-x | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/org-agenda.el | 4 | ||||
-rw-r--r-- | lisp/org.el | 3 |
3 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 56acc41..b52512b 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,14 @@ 2009-11-20 Carsten Dominik <carsten.dominik@gmail.com> + * org.el (org-display-outline-path): Use a format specifier for + message, to avoid problems with heading containing `%'. + * org-agenda.el (org-agenda-hide-tags-regexp): New option. (org-format-agenda-item): Call `org-agenda-fix-displayed-tags'. (org-agenda-fix-displayed-tags): New function. + (org-agenda-do-context-action): Just call + `org-display-outline-path', without piping the result through + `message'. * org-latex.el (org-export-latex-preprocess): Protect secondary footnote references. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ba91079..d8bc734 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5715,8 +5715,8 @@ When called with a prefix argument, include all archive files as well." (if (and org-agenda-follow-mode m) (org-agenda-show)) (if (and m org-agenda-show-outline-path) - (message (org-with-point-at m - (org-display-outline-path t)))))) + (org-with-point-at m + (org-display-outline-path t))))) (defun org-agenda-show-priority () "Show the priority of the current item. diff --git a/lisp/org.el b/lisp/org.el index 29f5694..0e1b5fa 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9082,7 +9082,8 @@ such as the file name." (org-back-to-heading t) (if (looking-at org-complex-heading-regexp) (list (match-string 4))))))) - (message (org-format-outline-path + (message "%s" + (org-format-outline-path path (1- (frame-width)) (and file bfn (concat (file-name-nondirectory bfn) "/")))))) |