diff options
author | Carsten Dominik <dominik@science.uva.nl> | 2007-02-28 10:04:15 +0000 |
---|---|---|
committer | Carsten Dominik <dominik@science.uva.nl> | 2007-02-28 10:04:15 +0000 |
commit | d6b1a578bfae621c8ba3244e22f5fc62b0d099f3 (patch) | |
tree | 6a63152f61eda785c2cc493b3b8943c97b7009bc | |
parent | 8f5ffc25abae6a8be4f9fdca1ac76239af9e4b53 (diff) | |
download | emacs-d6b1a578bfae621c8ba3244e22f5fc62b0d099f3.tar.gz |
(org-set-tags, org-table-get-field): Avoid case
changes during replacement.
(org-agenda-mode-map): Add default binding for `org-agenda-archive'.
-rw-r--r-- | lisp/textmodes/org.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 58d1c9703b8..7772f7cb966 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -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 @@ is always the old value." (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 @@ With prefix ARG, realign all tags in headings in the current buffer." 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 @@ The following commands are available: (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) |