File tree Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -3035,7 +3035,7 @@ Point is left at list end."
3035
3035
(defun org-list-insert-radio-list ()
3036
3036
" Insert a radio list template appropriate for this major mode."
3037
3037
(interactive )
3038
- (let* ((e (assq major -mode org-list-radio-list-templates))
3038
+ (let* ((e (cl-assoc-if # 'derived -mode-p org-list-radio-list-templates))
3039
3039
(txt (nth 1 e))
3040
3040
name pos)
3041
3041
(unless e (error " No radio list setup defined for %s " major-mode))
Original file line number Diff line number Diff line change @@ -4269,7 +4269,7 @@ to execute outside of tables."
4269
4269
"--"
4270
4270
("Radio tables"
4271
4271
["Insert table template" orgtbl-insert-radio-table
4272
- (assq major -mode orgtbl-radio-table-templates)]
4272
+ (cl-assoc-if #'derived -mode-p orgtbl-radio-table-templates)]
4273
4273
["Comment/uncomment table" orgtbl-toggle-comment t])
4274
4274
"--"
4275
4275
["Set Column Formula" org-table-eval-formula :active (org-at-table-p) :keys "C-c ="]
@@ -4549,7 +4549,7 @@ First element has index 0, or I0 if given."
4549
4549
(defun orgtbl-insert-radio-table ()
4550
4550
"Insert a radio table template appropriate for this major mode."
4551
4551
(interactive)
4552
- (let* ((e (assq major -mode orgtbl-radio-table-templates))
4552
+ (let* ((e (cl-assoc-if #'derived -mode-p orgtbl-radio-table-templates))
4553
4553
(txt (nth 1 e))
4554
4554
name pos)
4555
4555
(unless e (user-error "No radio table setup defined for %s" major-mode))
You can’t perform that action at this time.
0 commit comments