tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Minor fixes 

Patch by Noorul Islam.
This commit is contained in:
Carsten Dominik 2009-11-18 10:37:16 +01:00
parent 54889df12d
commit 3cdff230dd
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2009-11-18 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-remove-date): Remove variable.
2009-11-17 Carsten Dominik <carsten.dominik@gmail.com> 2009-11-17 Carsten Dominik <carsten.dominik@gmail.com>
* org-freemind.el (org-freemind-escape-str-from-org): Fix encoding. * org-freemind.el (org-freemind-escape-str-from-org): Fix encoding.

1
lisp/org-agenda.el
View File

@ -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-starting-day nil) ; local variable in the agenda buffer
(defvar org-agenda-span 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-include-all-loc nil) ; local variable
(defvar org-agenda-remove-date nil) ; dynamically scoped FIXME: not used???
;;;###autoload ;;;###autoload
(defun org-agenda-list (&optional include-all start-day ndays) (defun org-agenda-list (&optional include-all start-day ndays)

2
lisp/org.el
View File

@ -13122,7 +13122,7 @@ user."
deltadef (nth 2 delta))) deltadef (nth 2 delta)))
;; Check if there is an iso week date in there ;; 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 ;; of the parsing is done
(when (string-match "\\<\\(?:\\([0-9]+\\)-\\)?[wW]\\([0-9]\\{1,2\\}\\)\\(?:-\\([0-6]\\)\\)?\\([ \t]\\|$\\)" ans) (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)))) (setq iso-year (if (match-end 1) (org-small-year-to-year (string-to-number (match-string 1 ans))))