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
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)
_______________________________________________
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
