Michael Olson <[EMAIL PROTECTED]> writes: > (defun planner-migrate-old-annotations () > (interactive) > (goto-char (point-min)) > (while (re-search-forward muse-explicit-link-regexp) > (let ((link (muse-get-link)) > (desc (muse-get-link-desc))) > (replace-match (muse-link-escape link) t t nil 1) > (replace-match (muse-link-escape desc) t t nil 2))))
Fixing a simple error:
(defun planner-migrate-old-annotations ()
(interactive)
(goto-char (point-min))
(while (re-search-forward muse-explicit-link-regexp nil t)
(let ((link (muse-get-link))
(desc (muse-get-link-desc)))
(replace-match (muse-link-escape link) t t nil 1)
(replace-match (muse-link-escape desc) t t nil 2))))
--
Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/
Interests: Emacs Lisp, text markup, protocols -- Jabber: mwolson_at_hcoop.net
/` |\ | | | IRC: freenode.net/mwolson: #emacs, #hcoop, #muse, #PurdueLUG
|_] | \| |_| Projects: Emacs, Muse, ERC, EMMS, Planner, ErBot, DVC
pgpc5roT13Z1w.pgp
Description: PGP signature
_______________________________________________ Planner-el-discuss mailing list [email protected] https://mail.gna.org/listinfo/planner-el-discuss
