Explorar o código

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.
David Maus %!s(int64=14) %!d(string=hai) anos
pai
achega
ece2c578f0
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      lisp/org.el

+ 2 - 1
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)))