The custom types for org-clock-rounding-minutes and
org-table-duration-custom-format suffer from excessive quoting. Patch
attached.

Emacs  : GNU Emacs 31.0.50 (build 4, x86_64-pc-linux-gnu, GTK+ Version 3.24.38, 
cairo version 1.16.0)
 of 2025-02-04
Package: Org mode version 9.7.11 (release_9.7.11 @ 
/home/rpluim/repos/emacs/lisp/org/)

Robert
-- 
>From d02f9700debfbafaab71fc6c7401132ae11de08e Mon Sep 17 00:00:00 2001
From: Robert Pluim <rpl...@gmail.com>
Date: Mon, 10 Feb 2025 13:37:25 +0100
Subject: [PATCH] Remove unneeded quoting for symbol values.
To: emacs-de...@gnu.org

* lisp/org/org-clock.el (org-clock-rounding-minutes): Symbol
values should not be quoted.
* lisp/org/org-table.el (org-table-duration-custom-format): And here.
---
 lisp/org/org-clock.el |  2 +-
 lisp/org/org-table.el | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el
index 5fd0580d059..cb2064d596b 100644
--- a/lisp/org/org-clock.el
+++ b/lisp/org/org-clock.el
@@ -144,7 +144,7 @@ org-clock-rounding-minutes
   :package-version '(Org . "8.0")
   :type '(choice
 	  (integer :tag "Minutes (0 for no rounding)")
-	  (symbol  :tag "Use `org-time-stamp-rounding-minutes'" 'same-as-time-stamp)))
+	  (symbol  :tag "Use `org-time-stamp-rounding-minutes'" same-as-time-stamp)))
 
 (defcustom org-clock-out-remove-zero-time-clocks nil
   "Non-nil means remove the clock line when the resulting time is zero."
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 22eecd55363..c249ac524be 100644
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -344,11 +344,11 @@ org-table-duration-custom-format
 a single formula."
   :group 'org-table-calculation
   :version "24.1"
-  :type '(choice (symbol :tag "Seconds" 'seconds)
-		 (symbol :tag "Minutes" 'minutes)
-		 (symbol :tag "Hours  " 'hours)
-		 (symbol :tag "Days   " 'days)
-		 (symbol :tag "HH:MM  " 'hh:mm)))
+  :type '(choice (symbol :tag "Seconds" seconds)
+		 (symbol :tag "Minutes" minutes)
+		 (symbol :tag "Hours  " hours)
+		 (symbol :tag "Days   " days)
+		 (symbol :tag "HH:MM  " hh:mm)))
 
 (defcustom org-table-duration-hour-zero-padding t
   "Non-nil means hours in table duration computations should be zero-padded.
-- 
2.39.5

Reply via email to