From ef738cf38afe972b2b006cd7977755d5dad79559 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 1 Apr 2009 13:58:27 +0200 Subject: [PATCH] Fix customization types: integer instead of number, where appropriate --- lisp/ChangeLog | 14 ++++++++++++++ lisp/org-agenda.el | 12 ++++++------ lisp/org-exp.el | 2 +- lisp/org-faces.el | 2 +- lisp/org.el | 8 ++++---- 5 files changed, 26 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 75e7d5695..da5babfff 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,17 @@ +2009-04-01 Carsten Dominik + + * org-faces.el (org-n-level-faces): Fix customization type from + number to integer. + + * org-exp.el (org-export-headline-levels): Fix customization type + from number to integer. + + * org-agenda.el (org-agenda-confirm-kill) + (org-agenda-custom-commands-local-options) + (org-timeline-show-empty-dates, org-agenda-ndays) + (org-agenda-start-on-weekday, org-scheduled-past-days): Fix + customization type from number to integer. + 2009-03-31 Carsten Dominik * org-protocol.el: Declare some functions. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 79434bd4e..a09873a54 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -73,7 +73,7 @@ only needed when the text to be killed contains more than N non-white lines." :type '(choice (const :tag "Never" nil) (const :tag "Always" t) - (number :tag "When more than N lines"))) + (integer :tag "When more than N lines"))) (defcustom org-agenda-compact-blocks nil "Non-nil means, make the block agenda more compact. @@ -222,7 +222,7 @@ you can \"misuse\" it to also add other text to the header. However, (const org-agenda-start-on-weekday) (choice :value 1 (const :tag "Today" nil) - (number :tag "Weekday No."))) + (integer :tag "Weekday No."))) (list :tag "Include data from diary" (const org-agenda-include-diary) (boolean)) @@ -594,7 +594,7 @@ N days, just insert a special line indicating the size of the gap." :type '(choice (const :tag "None" nil) (const :tag "All" t) - (number :tag "at most"))) + (integer :tag "at most"))) (defgroup org-agenda-startup nil "Options concerning initial settings in the Agenda in Org Mode." @@ -665,7 +665,7 @@ option will be ignored.." Should be 1 or 7. Custom commands can set this variable in the options section." :group 'org-agenda-daily/weekly - :type 'number) + :type 'integer) (defcustom org-agenda-start-on-weekday 1 "Non-nil means, start the overview always on the specified weekday. @@ -674,7 +674,7 @@ When nil, always start on the current day. Custom commands can set this variable in the options section." :group 'org-agenda-daily/weekly :type '(choice (const :tag "Today" nil) - (number :tag "Weekday No."))) + (integer :tag "Weekday No."))) (defcustom org-agenda-show-all-dates t "Non-nil means, `org-agenda' shows every day in the selected range. @@ -757,7 +757,7 @@ When an item is scheduled on a date, it shows up in the agenda on this day and will be listed until it is marked done for the number of days given here." :group 'org-agenda-daily/weekly - :type 'number) + :type 'integer) (defcustom org-agenda-log-mode-items '(closed clock) "List of items that should be shown in agenda log mode. diff --git a/lisp/org-exp.el b/lisp/org-exp.el index d2775f9b9..71b30bd45 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -161,7 +161,7 @@ this setting. This option can also be set with the +OPTIONS line, e.g. \"H:2\"." :group 'org-export-general - :type 'number) + :type 'integer) (defcustom org-export-with-section-numbers t "Non-nil means, add section numbers to headlines when exporting. diff --git a/lisp/org-faces.el b/lisp/org-faces.el index c7aeac276..d30e9ed26 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -567,7 +567,7 @@ month and 365.24 days for a year)." "The number of different faces to be used for headlines. Org-mode defines 8 different headline faces, so this can be at most 8. If it is less than 8, the level-1 face gets re-used for level N+1 etc." - :type 'number + :type 'integer :group 'org-faces) (defface org-latex-and-export-specials diff --git a/lisp/org.el b/lisp/org.el index 2d3a23cc9..21ee45292 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -888,7 +888,7 @@ as possible." "The maximum level for Imenu access to Org-mode headlines. This also applied for speedbar access." :group 'org-imenu-and-speedbar - :type 'number) + :type 'integer) (defgroup org-table nil "Options concerning tables in Org-mode." @@ -1450,7 +1450,7 @@ outline-path-completion Headlines in the current buffer are offered via (defcustom org-goto-max-level 5 "Maximum level to be considered when running org-goto with refile interface." :group 'org-refile - :type 'number) + :type 'integer) (defcustom org-reverse-note-order nil "Non-nil means, store new notes at the beginning of a file or entry. @@ -2033,7 +2033,7 @@ even if a deadline has a different individual lead time specified. Custom commands can set this variable in the options section." :group 'org-time :group 'org-agenda-daily/weekly - :type 'number) + :type 'integer) (defcustom org-read-date-prefer-future t "Non-nil means, assume future for incomplete date input from user. @@ -2090,7 +2090,7 @@ IMPORTANT: This is a feature whose implementation is and likely will remain incomplete. Really, it is only here because past midnight seems to be the favorite working time of John Wiegley :-)" :group 'org-time - :type 'number) + :type 'integer) (defcustom org-edit-timestamp-down-means-later nil "Non-nil means, S-down will increase the time in a time stamp. -- 2.11.4.GIT