Skip to content

Commit c92bae9

Browse files
committed
change org to use derived-mode-p
* lisp/org/org-list.el (org-list-insert-radio-list): Use derived-mode-p. * lisp/org/org-table.el (orgtbl-setup, orgtbl-toggle-comment): Use derived-mode-p.
1 parent d056b1f commit c92bae9

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

lisp/org/org-list.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3035,7 +3035,7 @@ Point is left at list end."
30353035
(defun org-list-insert-radio-list ()
30363036
"Insert a radio list template appropriate for this major mode."
30373037
(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))
30393039
(txt (nth 1 e))
30403040
name pos)
30413041
(unless e (error "No radio list setup defined for %s" major-mode))

lisp/org/org-table.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4269,7 +4269,7 @@ to execute outside of tables."
42694269
"--"
42704270
("Radio tables"
42714271
["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)]
42734273
["Comment/uncomment table" orgtbl-toggle-comment t])
42744274
"--"
42754275
["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."
45494549
(defun orgtbl-insert-radio-table ()
45504550
"Insert a radio table template appropriate for this major mode."
45514551
(interactive)
4552-
(let* ((e (assq major-mode orgtbl-radio-table-templates))
4552+
(let* ((e (cl-assoc-if #'derived-mode-p orgtbl-radio-table-templates))
45534553
(txt (nth 1 e))
45544554
name pos)
45554555
(unless e (user-error "No radio table setup defined for %s" major-mode))

0 commit comments

Comments
 (0)