[PATCH] Removes obsolete functions, variable and fix typos.

* [PATCH] Removes obsolete functions, variable and fix typos.
@ 2009-11-15 16:08 Noorul Islam
  2009-11-18  7:08 ` Noorul Islam
  2009-11-18 22:54 ` Carsten Dominik
  0 siblings, 2 replies; 5+ messages in thread
From: Noorul Islam @ 2009-11-15 16:08 UTC (permalink / raw)
  To: org-mode Mailinglist

[-- Attachment #1: Type: text/plain, Size: 296 bytes --]

Hello all,

Attached is the patch which has following changes.

* lisp/org-agenda.el:
  - Removed obsolete functions, org-highlight-until-next-command and
org-unhighlight-once.
  - Removed obsolete variable org-agenda-remove-date.

* lisp/org.el
  - Fixed some typos.

Thanks and Regards,
Noorul

[-- Attachment #2: obsolete-funcs-and-typos.diff --]
[-- Type: text/x-diff, Size: 2374 bytes --]

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 2619914..9ebe2d2 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2970,7 +2970,6 @@ When EMPTY is non-nil, also include days without any entries."
 (defvar org-starting-day nil) ; local variable in the agenda buffer
 (defvar org-agenda-span nil) ; local variable in the agenda buffer
 (defvar org-include-all-loc nil) ; local variable
-(defvar org-agenda-remove-date nil) ; dynamically scoped FIXME: not used???
 
 ;;;###autoload
 (defun org-agenda-list (&optional include-all start-day ndays)
@@ -5536,16 +5535,6 @@ so that the date SD will be in that range."
   "Detach overlay INDEX."
   (funcall (if (featurep 'xemacs) 'detach-extent 'delete-overlay) org-hl))
 
-;; FIXME this is currently not used.
-(defun org-highlight-until-next-command (beg end &optional buffer)
-  "Move the highlight overlay to BEG/END, remove it before the next command."
-  (org-highlight beg end buffer)
-  (add-hook 'pre-command-hook 'org-unhighlight-once))
-(defun org-unhighlight-once ()
-  "Remove the highlight from its position, and this function from the hook."
-  (remove-hook 'pre-command-hook 'org-unhighlight-once)
-  (org-unhighlight))
-
 (defun org-agenda-follow-mode ()
   "Toggle follow mode in an agenda buffer."
   (interactive)
diff --git a/lisp/org.el b/lisp/org.el
index bf6573b..73117c8 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13111,7 +13111,7 @@ user."
             deltadef (nth 2 delta)))
 
     ;; Check if there is an iso week date in there
-    ;; If yes, sore the info and postpone interpreting it until the rest
+    ;; If yes, store the info and postpone interpreting it until the rest
     ;; of the parsing is done
     (when (string-match "\\<\\(?:\\([0-9]+\\)-\\)?[wW]\\([0-9]\\{1,2\\}\\)\\(?:-\\([0-6]\\)\\)?\\([ \t]\\|$\\)" ans)
       (setq iso-year (if (match-end 1) (org-small-year-to-year (string-to-number (match-string 1 ans))))
@@ -13119,7 +13119,7 @@ user."
 	    iso-week (string-to-number (match-string 2 ans)))
       (setq ans (replace-match "" t t ans)))
 
-    ;; Help matching ISO dates with single digit month ot day, like 2006-8-11.
+    ;; Help matching ISO dates with single digit month or day, like 2006-8-11.
     (when (string-match
 	   "^ *\\(\\([0-9]+\\)-\\)?\\([0-1]?[0-9]\\)-\\([0-3]?[0-9]\\)\\([^-0-9]\\|$\\)" ans)
       (setq year (if (match-end 2)

[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

^ permalink raw reply related	[flat|nested] 5+ messages in thread