|
@@ -2340,13 +2340,14 @@ is an integer, 0 means `-', 1 means `+' etc. If WHICH is
|
|
|
(defsubst org-at-radio-list-p ()
|
|
|
"Is point in a list with radio buttons?"
|
|
|
(when (org-at-item-p)
|
|
|
- (let (attr)
|
|
|
- (save-excursion
|
|
|
- (goto-char (caar (org-list-struct)))
|
|
|
+ (save-excursion
|
|
|
+ (goto-char (caar (org-list-struct)))
|
|
|
+ (ignore-errors
|
|
|
(org-backward-element)
|
|
|
- (setq attr (org-export-read-attribute
|
|
|
- :attr_org (org-element-at-point))))
|
|
|
- (when (plist-get attr :radio) t))))
|
|
|
+ (string= (plist-get (org-export-read-attribute
|
|
|
+ :attr_org (org-element-at-point))
|
|
|
+ :radio)
|
|
|
+ "t")))))
|
|
|
|
|
|
(defun org-toggle-checkbox (&optional toggle-presence)
|
|
|
"Toggle the checkbox in the current line.
|