← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/muse-el/oneiric

« back to all changes in this revision

Viewing changes to lisp/muse-import-xml.el

  • Committer: Bazaar Package Importer
  • Author(s): Michael W. Olson (GNU address)
  • Date: 2008-01-09 15:51:46 UTC
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20080109155146-vkc4ohnzv96spdpm
Tags: upstream-3.11
Import upstream version 3.11

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/muse-import-xml.el
8
8
 
9
9
;; Emacs Muse is free software; you can redistribute it and/or modify
10
10
;; it under the terms of the GNU General Public License as published
11
 
;; by the Free Software Foundation; either version 2, or (at your
 
11
;; by the Free Software Foundation; either version 3, or (at your
12
12
;; option) any later version.
13
13
 
14
14
;; Emacs Muse is distributed in the hope that it will be useful, but
30
30
(provide 'muse-import-xml)
31
31
 
32
32
(require 'xml)
 
33
(require 'muse)
33
34
 
34
35
(defvar muse-import-xml-prefix ""
35
36
  "The name prefix for tag functions")
63
64
(defun muse-import-xml-parse-node (node)
64
65
  "Parse a xml tree node"
65
66
  (if (stringp node)
66
 
      (insert (replace-regexp-in-string "^[ \t]+" "" node))
 
67
      (insert (muse-replace-regexp-in-string "^[ \t]+" "" node))
67
68
    (let ((fname (intern-soft (concat muse-import-xml-prefix
68
69
                                      (symbol-name (xml-node-name node))))))
69
70
      (if (functionp fname)