]> git.eshelyaron.com Git - emacs.git/commitdiff
Remove Emacs 20 compat code from org.el
authorStefan Kangas <stefan@marxist.se>
Fri, 20 Nov 2020 14:17:22 +0000 (15:17 +0100)
committerStefan Kangas <stefan@marxist.se>
Fri, 20 Nov 2020 15:11:33 +0000 (16:11 +0100)
* lisp/org/org.el (org-org-menu, org-create-customize-menu):
Remove Emacs 20 compat code.

lisp/org/org.el

index 1ab8ab688807fe79d87ee40e63b2eeef23a2a956..d2a36dd0badb44064295c5b16dfd61d6c16a9801 100644 (file)
@@ -18535,8 +18535,7 @@ an argument, unconditionally call `org-insert-heading'."
     ("Customize"
      ["Browse Org Group" org-customize t]
      "--"
-     ["Expand This Menu" org-create-customize-menu
-      (fboundp 'customize-menu-create)])
+     ["Expand This Menu" org-create-customize-menu t])
     ["Send bug report" org-submit-bug-report t]
     "--"
     ("Refresh/Reload"
@@ -18709,20 +18708,17 @@ With prefix arg UNCOMPILED, load the uncompiled versions."
   (interactive)
   (org-load-modules-maybe)
   (org-require-autoloaded-modules)
-  (if (fboundp 'customize-menu-create)
-      (progn
-       (easy-menu-change
-        '("Org") "Customize"
-        `(["Browse Org group" org-customize t]
-          "--"
-          ,(customize-menu-create 'org)
-          ["Set" Custom-set t]
-          ["Save" Custom-save t]
-          ["Reset to Current" Custom-reset-current t]
-          ["Reset to Saved" Custom-reset-saved t]
-          ["Reset to Standard Settings" Custom-reset-standard t]))
-       (message "\"Org\"-menu now contains full customization menu"))
-    (error "Cannot expand menu (outdated version of cus-edit.el)")))
+  (easy-menu-change
+   '("Org") "Customize"
+   `(["Browse Org group" org-customize t]
+     "--"
+     ,(customize-menu-create 'org)
+     ["Set" Custom-set t]
+     ["Save" Custom-save t]
+     ["Reset to Current" Custom-reset-current t]
+     ["Reset to Saved" Custom-reset-saved t]
+     ["Reset to Standard Settings" Custom-reset-standard t]))
+  (message "\"Org\"-menu now contains full customization menu"))
 
 ;;;; Miscellaneous stuff