Re: [Orgmode] org-get-local-archive-location

2010-09-12 Thread David Maus 
Ilya Shlyakhter wrote:
In the routine org-get-local-archive-location, is the call to
(match-string 1) at the end extraneous?
Seems like you want to return org-archive-location in this case.

Yes, this is now fixed in master.

Best,
  -- David
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber dmj...@jabber.org
Email. dm...@ictsoc.de


pgpgIP755mkey.pgp
Description: PGP signature
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

[Orgmode] org-get-local-archive-location

2010-09-10 Thread Ilya Shlyakhter 
In the routine org-get-local-archive-location, is the call to
(match-string 1) at the end extraneous?
Seems like you want to return org-archive-location in this case.

(defun org-get-local-archive-location ()
  Get the archive location applicable at point.
  (let ((re ^#\\+ARCHIVE:[ \t]+\\(\\S-.*\\S-\\)[ \t]*$)
prop)
(save-excursion
  (save-restriction
(widen)
(setq prop (org-entry-get nil ARCHIVE 'inherit))
(cond
 ((and prop (string-match \\S- prop))
  prop)
 ((or (re-search-backward re nil t)
  (re-search-forward re nil t))
  (match-string 1))
 (t org-archive-location (match-string 1)))

___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode