comparison lisp/textmodes/org.el @ 71652:4df24233cf1e

(org-agenda-get-todos): Skip subtree also if entry is skipped because it has been scheduled. (org-prepare-agenda-buffers): Don't mark buffers as modified when changing `:org-archived' and `:org-comment' properties.

71651:731edb6e5b4f

;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
;;
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
;; Version: 4.42
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;; excellent reference card made by Philip Rooke.  This card can be found
;; in the etc/ directory of Emacs 22.
;;
;; Recent changes
;; --------------
;; Version 4.42
;;    - Bug fixes
;;    - `s' key in the agenda saves all org-mode buffers.
;;
;; Version 4.41

(require 'time-date)
(require 'easymenu)

;;; Customization variables

(defvar org-version "4.42"
  "The version number of the file org.el.")
(defun org-version ()
  (interactive)
  (message "Org-mode version %s" org-version))

  (interactive)
  (let ((pa '(:org-archived t))
	(pc '(:org-comment t))
	(pall '(:org-archived t :org-comment t))
	(rea (concat ":" org-archive-tag ":"))
	file re)
    (save-excursion
      (while (setq file (pop files))
	(org-check-agenda-file file)
	(set-buffer (org-get-agenda-file-buffer file))
	(widen)
	(save-excursion
	  (remove-text-properties (point-min) (point-max) pall)
	  (when org-agenda-skip-archived-trees
	    (goto-char (point-min))
	    (while (re-search-forward rea nil t)

		  (add-text-properties (point-at-bol) (org-end-of-subtree t) pa))))
	  (goto-char (point-min))
	  (setq re (concat "^\\*+ +" org-comment-string "\\>"))
	  (while (re-search-forward re nil t)
	    (add-text-properties
	     (match-beginning 0) (org-end-of-subtree t) pc)))))))

(defun org-agenda-skip ()
  "Throw to `:skip' in places that should be skipped."
  (let ((p (point-at-bol)))
    (and org-agenda-skip-archived-trees

	 marker priority category tags
	 ee txt)
    (goto-char (point-min))
    (while (re-search-forward regexp nil t)
      (catch :skip
	(and org-agenda-todo-ignore-scheduled
	     (looking-at sched-re)
	     (throw :skip nil))
	(org-agenda-skip)
	(goto-char (match-beginning 1))
	(setq marker (org-agenda-new-marker (1+ (match-beginning 0)))
	      category (org-get-category)
	      tags (org-get-tags-at (point))

		(let ((org-add-colon-after-tag-completion t))
		  (completing-read "Tags: " 'org-tags-completion-function
				   nil nil current 'org-tags-history))))
	(while (string-match "[-+&]+" tags)
	  (setq tags (replace-match ":" t t tags))))

      (unless (setq empty (string-match "\\`[\t ]*\\'" tags))
	(unless (string-match ":$" tags) (setq tags (concat tags ":")))
	(unless (string-match "^:" tags) (setq tags (concat ":" tags))))
      (if (equal current "")
	  (progn

71652:4df24233cf1e

;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
;;
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
;; Version: 4.43
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;; excellent reference card made by Philip Rooke.  This card can be found
;; in the etc/ directory of Emacs 22.
;;
;; Recent changes
;; --------------
;; Version 4.43
;;    - Big fixes
;;
;; Version 4.42
;;    - Bug fixes
;;    - `s' key in the agenda saves all org-mode buffers.
;;
;; Version 4.41

(require 'time-date)
(require 'easymenu)

;;; Customization variables

(defvar org-version "4.43"
  "The version number of the file org.el.")
(defun org-version ()
  (interactive)
  (message "Org-mode version %s" org-version))

  (interactive)
  (let ((pa '(:org-archived t))
	(pc '(:org-comment t))
	(pall '(:org-archived t :org-comment t))
	(rea (concat ":" org-archive-tag ":"))
	bmp file re)
    (save-excursion
      (while (setq file (pop files))
	(org-check-agenda-file file)
	(set-buffer (org-get-agenda-file-buffer file))
	(widen)
	(setq bmp (buffer-modified-p))
	(save-excursion
	  (remove-text-properties (point-min) (point-max) pall)
	  (when org-agenda-skip-archived-trees
	    (goto-char (point-min))
	    (while (re-search-forward rea nil t)

		  (add-text-properties (point-at-bol) (org-end-of-subtree t) pa))))
	  (goto-char (point-min))
	  (setq re (concat "^\\*+ +" org-comment-string "\\>"))
	  (while (re-search-forward re nil t)
	    (add-text-properties
	     (match-beginning 0) (org-end-of-subtree t) pc)))
	(set-buffer-modified-p bmp)))))

(defun org-agenda-skip ()
  "Throw to `:skip' in places that should be skipped."
  (let ((p (point-at-bol)))
    (and org-agenda-skip-archived-trees

	 marker priority category tags
	 ee txt)
    (goto-char (point-min))
    (while (re-search-forward regexp nil t)
      (catch :skip
	(when (and org-agenda-todo-ignore-scheduled
		   (looking-at sched-re))
	  ;; FIXME: the following test also happens below, but we need it here
	  (or org-agenda-todo-list-sublevels (org-end-of-subtree 'invisible))
	  (throw :skip nil))
	(org-agenda-skip)
	(goto-char (match-beginning 1))
	(setq marker (org-agenda-new-marker (1+ (match-beginning 0)))
	      category (org-get-category)
	      tags (org-get-tags-at (point))

		(let ((org-add-colon-after-tag-completion t))
		  (completing-read "Tags: " 'org-tags-completion-function
				   nil nil current 'org-tags-history))))
	(while (string-match "[-+&]+" tags)
	  (setq tags (replace-match ":" t t tags))))
      
      (unless (setq empty (string-match "\\`[\t ]*\\'" tags))
	(unless (string-match ":$" tags) (setq tags (concat tags ":")))
	(unless (string-match "^:" tags) (setq tags (concat ":" tags))))
      (if (equal current "")
	  (progn