Mercurial > emacs
changeset 76227:4ebdd2b6e9dd
(org-set-tags, org-table-get-field): Avoid case
changes during replacement.
(org-agenda-mode-map): Add default binding for `org-agenda-archive'.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Wed, 28 Feb 2007 10:04:15 +0000 |
| parents | ded4eb03cb99 |
| children | e56d2ae9cf2d |
| files | lisp/textmodes/org.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/org.el Wed Feb 28 10:03:54 2007 +0000 +++ b/lisp/textmodes/org.el Wed Feb 28 10:04:15 2007 +0000 @@ -5,7 +5,7 @@ ;; 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.67a +;; Version: 4.67b ;; ;; This file is part of GNU Emacs. ;; @@ -83,7 +83,7 @@ ;;; Version -(defvar org-version "4.67" +(defvar org-version "4.67b" "The version number of the file org.el.") (defun org-version () (interactive) @@ -6324,7 +6324,7 @@ (let* ((pos (match-beginning 0)) (val (buffer-substring (1+ pos) (match-end 0)))) (if replace - (replace-match (concat "|" replace))) + (replace-match (concat "|" replace) t t)) (goto-char (min (point-at-eol) (+ 2 pos))) val) (forward-char 1) "")) @@ -11651,7 +11651,7 @@ org-tags-column (- (- org-tags-column) (length tags)))) rpl (concat (make-string (max 0 (- c1 c0)) ?\ ) tags))) - (replace-match rpl) + (replace-match rpl t t) (and (not (featurep 'xemacs)) c0 (tabify p0 (point))) tags) (error "Tags alignment failed"))))) @@ -12982,6 +12982,7 @@ (define-key org-agenda-mode-map "\C-m" 'org-agenda-switch-to) (define-key org-agenda-mode-map "\C-k" 'org-agenda-kill) (define-key org-agenda-mode-map "\C-c$" 'org-agenda-archive) +(define-key org-agenda-mode-map "\C-c\C-x\C-s" 'org-agenda-archive) (define-key org-agenda-mode-map "$" 'org-agenda-archive) (define-key org-agenda-mode-map "\C-c\C-o" 'org-agenda-open-link) (define-key org-agenda-mode-map " " 'org-agenda-show)