diff options
author | David Maus <dmaus@ictsoc.de> | 2010-09-09 20:56:01 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2010-09-09 20:57:26 +0200 |
commit | ece2c578f0a04a6cab9e552459a7d2a42c1428c3 (patch) | |
tree | 47d9377c85e2d9d409cfed2d1f7af5d166d4e14e | |
parent | 385c2666b1519b598071b33189b8ca9f6ea28547 (diff) | |
download | org-mode-ece2c578f0a04a6cab9e552459a7d2a42c1428c3.tar.gz |
Save match data before call to `read-char-exclusive'
* org.el (org-priority): Save match data before call to
`read-char-exclusive'.
Otherwise interactively calling `org-priority' with org-indent-mode
enabled fails to set a new priority cookie.
Bug reported by Joseph Buchignani.
-rw-r--r-- | lisp/org.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 68ed311..6d8dfdc 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12120,7 +12120,8 @@ ACTION can be `set', `up', `down', or a character." (setq new action) (message "Priority %c-%c, SPC to remove: " org-highest-priority org-lowest-priority) - (setq new (read-char-exclusive))) + (save-match-data + (setq new (read-char-exclusive)))) (if (and (= (upcase org-highest-priority) org-highest-priority) (= (upcase org-lowest-priority) org-lowest-priority)) (setq new (upcase new))) |