Spelling fixes.

[bpt/emacs.git] / lisp / org / org-remember.el

diff --git a/lisp/org/org-remember.el b/lisp/org/org-remember.el
index d8252b6..8819f41 100644 (file)
--- a/lisp/org/org-remember.el
+++ b/lisp/org/org-remember.el
@@ -1,12 +1,11 @@
 ;;; org-remember.el --- Fast note taking in Org-mode
 
-;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010
-;;   Free Software Foundation, Inc.
+;; Copyright (C) 2004-2011  Free Software Foundation, Inc.
 
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 7.01
+;; Version: 7.7
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -34,12 +33,14 @@
 (eval-when-compile
   (require 'cl))
 (require 'org)
+(require 'org-compat)
 (require 'org-datetree)
 
 (declare-function remember-mode "remember" ())
 (declare-function remember "remember" (&optional initial))
 (declare-function remember-buffer-desc "remember" ())
 (declare-function remember-finalize "remember" ())
+
 (defvar remember-save-after-remembering)
 (defvar remember-register)
 (defvar remember-buffer)
@@ -62,7 +63,7 @@ and `org-remember-default-headline'.  To force prompting anyway, use
 \\[universal-argument] \\[org-remember-finalize] to file the note.
 
 When this variable is nil, \\[org-remember-finalize] gives you the prompts, and
-\\[universal-argument] \\[org-remember-finalize] triggers the fasttrack."
+\\[universal-argument] \\[org-remember-finalize] triggers the fast track."
   :group 'org-remember
   :type 'boolean)
 
@@ -157,7 +158,7 @@ Furthermore, the following %-escapes will be replaced with content:
 Apart from these general escapes, you can access information specific to the
 link type that is created.  For example, calling `remember' in emails or gnus
 will record the author and the subject of the message, which you can access
-with %:author and %:subject, respectively.  Here is a complete list of what
+with %:fromname and %:subject, respectively.  Here is a complete list of what
 is recorded for each link type.
 
 Link type          |  Available information
@@ -167,7 +168,8 @@ vm, wl, mh, rmail  |  %:type %:subject %:message-id
                    |  %:from %:fromname %:fromaddress
                    |  %:to   %:toname   %:toaddress
                    |  %:fromto (either \"to NAME\" or \"from NAME\")
-gnus               |  %:group, for messages also all email fields
+gnus               |  %:group, for messages also all email fields and
+                   |  %:org-date (the Date: header in Org format)
 w3, w3m            |  %:type %:url
 info               |  %:type %:file %:node
 calendar           |  %:type %:date"
@@ -574,7 +576,7 @@ to be run from that hook to function properly."
                           'org-tags-completion-function nil nil nil
                           'org-tags-history)))
                (setq ins (mapconcat 'identity
-                                    (org-split-string ins (org-re "[^[:alnum:]_@]+"))
+                                    (org-split-string ins (org-re "[^[:alnum:]_@#%]+"))
                                     ":"))
                (when (string-match "\\S-" ins)
                  (or (equal (char-before) ?:) (insert ":"))
@@ -1003,7 +1005,7 @@ See also the variable `org-reverse-note-order'."
             ((eq org-remember-interactive-interface 'outline-path-completion)
              (let ((org-refile-targets '((nil . (:maxlevel . 10))))
                    (org-refile-use-outline-path t))
-               (setq spos (org-refile-get-location "Heading: ")
+               (setq spos (org-refile-get-location "Heading")
                      exitcmd 'return
                      spos (nth 3 spos))))
             (t (error "This should not happen")))
@@ -1071,7 +1073,7 @@ See also the variable `org-reverse-note-order'."
                   (save-restriction
                     (widen)
                     (goto-char (point-min))
-                    (re-search-forward "^\\*+ " nil t)
+                    (re-search-forward org-outline-regexp-bol nil t)
                     (beginning-of-line 1)
                     (org-paste-subtree 1 txt)
                     (and org-auto-align-tags (org-set-tags nil t))
@@ -1120,7 +1122,7 @@ See also the variable `org-reverse-note-order'."
   (condition-case nil
       (require 'remember)
     (error
-     ;; Lets install our own micro version of remember
+     ;; Let's install our own micro version of remember
      (defvar remember-register ?R)
      (defvar remember-mode-hook nil)
      (defvar remember-handler-functions nil)
@@ -1148,7 +1150,6 @@ See also the variable `org-reverse-note-order'."
 
 (provide 'org-remember)
 
-;; arch-tag: 497f30d0-4bc3-4097-8622-2d27ac5f2698
 
-;;; org-remember.el ends here
 
+;;; org-remember.el ends here