Browse Source

Fix customization types: integer instead of number, where appropriate

Carsten Dominik 16 years ago
parent
commit
ef738cf38a
5 changed files with 26 additions and 12 deletions
  1. 14 0
      lisp/ChangeLog
  2. 6 6
      lisp/org-agenda.el
  3. 1 1
      lisp/org-exp.el
  4. 1 1
      lisp/org-faces.el
  5. 4 4
      lisp/org.el

+ 14 - 0
lisp/ChangeLog

@@ -1,3 +1,17 @@
+2009-04-01  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* 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  <carsten.dominik@gmail.com>
 2009-03-31  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
 	* org-protocol.el: Declare some functions.
 	* org-protocol.el: Declare some functions.

+ 6 - 6
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
   :type '(choice
 	  (const :tag "Never" nil)
 	  (const :tag "Never" nil)
 	  (const :tag "Always" t)
 	  (const :tag "Always" t)
-	  (number :tag "When more than N lines")))
+	  (integer :tag "When more than N lines")))
 
 
 (defcustom org-agenda-compact-blocks nil
 (defcustom org-agenda-compact-blocks nil
   "Non-nil means, make the block agenda more compact.
   "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)
 		  (const org-agenda-start-on-weekday)
 		  (choice :value 1
 		  (choice :value 1
 			  (const :tag "Today" nil)
 			  (const :tag "Today" nil)
-			  (number :tag "Weekday No.")))
+			  (integer :tag "Weekday No.")))
 	    (list :tag "Include data from diary"
 	    (list :tag "Include data from diary"
 		  (const org-agenda-include-diary)
 		  (const org-agenda-include-diary)
 		  (boolean))
 		  (boolean))
@@ -594,7 +594,7 @@ N days, just insert a special line indicating the size of the gap."
   :type '(choice
   :type '(choice
 	  (const :tag "None" nil)
 	  (const :tag "None" nil)
 	  (const :tag "All" t)
 	  (const :tag "All" t)
-	  (number :tag "at most")))
+	  (integer :tag "at most")))
 
 
 (defgroup org-agenda-startup nil
 (defgroup org-agenda-startup nil
   "Options concerning initial settings in the Agenda in Org Mode."
   "Options concerning initial settings in the Agenda in Org Mode."
@@ -665,7 +665,7 @@ option will be ignored.."
 Should be 1 or 7.
 Should be 1 or 7.
 Custom commands can set this variable in the options section."
 Custom commands can set this variable in the options section."
   :group 'org-agenda-daily/weekly
   :group 'org-agenda-daily/weekly
-  :type 'number)
+  :type 'integer)
 
 
 (defcustom org-agenda-start-on-weekday 1
 (defcustom org-agenda-start-on-weekday 1
   "Non-nil means, start the overview always on the specified weekday.
   "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."
 Custom commands can set this variable in the options section."
   :group 'org-agenda-daily/weekly
   :group 'org-agenda-daily/weekly
   :type '(choice (const :tag "Today" nil)
   :type '(choice (const :tag "Today" nil)
-		 (number :tag "Weekday No.")))
+		 (integer :tag "Weekday No.")))
 
 
 (defcustom org-agenda-show-all-dates t
 (defcustom org-agenda-show-all-dates t
   "Non-nil means, `org-agenda' shows every day in the selected range.
   "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
 day and will be listed until it is marked done for the number of days
 given here."
 given here."
   :group 'org-agenda-daily/weekly
   :group 'org-agenda-daily/weekly
-  :type 'number)
+  :type 'integer)
 
 
 (defcustom org-agenda-log-mode-items '(closed clock)
 (defcustom org-agenda-log-mode-items '(closed clock)
   "List of items that should be shown in agenda log mode.
   "List of items that should be shown in agenda log mode.

+ 1 - 1
lisp/org-exp.el

@@ -161,7 +161,7 @@ this setting.
 
 
 This option can also be set with the +OPTIONS line, e.g. \"H:2\"."
 This option can also be set with the +OPTIONS line, e.g. \"H:2\"."
   :group 'org-export-general
   :group 'org-export-general
-  :type 'number)
+  :type 'integer)
 
 
 (defcustom org-export-with-section-numbers t
 (defcustom org-export-with-section-numbers t
   "Non-nil means, add section numbers to headlines when exporting.
   "Non-nil means, add section numbers to headlines when exporting.

+ 1 - 1
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.
   "The number of different faces to be used for headlines.
 Org-mode defines 8 different headline faces, so this can be at most 8.
 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."
 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)
   :group 'org-faces)
 
 
 (defface org-latex-and-export-specials
 (defface org-latex-and-export-specials

+ 4 - 4
lisp/org.el

@@ -888,7 +888,7 @@ as possible."
   "The maximum level for Imenu access to Org-mode headlines.
   "The maximum level for Imenu access to Org-mode headlines.
 This also applied for speedbar access."
 This also applied for speedbar access."
   :group 'org-imenu-and-speedbar
   :group 'org-imenu-and-speedbar
-  :type 'number)
+  :type 'integer)
 
 
 (defgroup org-table nil
 (defgroup org-table nil
   "Options concerning tables in Org-mode."
   "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
 (defcustom org-goto-max-level 5
   "Maximum level to be considered when running org-goto with refile interface."
   "Maximum level to be considered when running org-goto with refile interface."
   :group 'org-refile
   :group 'org-refile
-  :type 'number)
+  :type 'integer)
 
 
 (defcustom org-reverse-note-order nil
 (defcustom org-reverse-note-order nil
   "Non-nil means, store new notes at the beginning of a file or entry.
   "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."
 Custom commands can set this variable in the options section."
   :group 'org-time
   :group 'org-time
   :group 'org-agenda-daily/weekly
   :group 'org-agenda-daily/weekly
-  :type 'number)
+  :type 'integer)
 
 
 (defcustom org-read-date-prefer-future t
 (defcustom org-read-date-prefer-future t
   "Non-nil means, assume future for incomplete date input from user.
   "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
 remain incomplete.  Really, it is only here because past midnight seems to
 be the favorite working time of John Wiegley :-)"
 be the favorite working time of John Wiegley :-)"
   :group 'org-time
   :group 'org-time
-  :type 'number)
+  :type 'integer)
 
 
 (defcustom org-edit-timestamp-down-means-later nil
 (defcustom org-edit-timestamp-down-means-later nil
   "Non-nil means, S-down will increase the time in a time stamp.
   "Non-nil means, S-down will increase the time in a time stamp.