Remove debug messages

This commit is contained in:
Greg Sexton 2014-05-31 20:21:16 +01:00
parent ecf6acae88
commit afb713c06c

View File

@ -412,9 +412,7 @@ parser to allow for recursive nesting of a parser."
origami-tree) origami-tree)
(defun origami-store-cached-tree (buffer tree) (defun origami-store-cached-tree (buffer tree)
;; TODO: (setq origami-tree tree))
(debug-msg "new:")
(debug-msg (setq origami-tree tree)))
(defun origami-was-previously-open? (tree beg end) (defun origami-was-previously-open? (tree beg end)
(-if-let (node (-last-item (origami-fold-find-path-with-range tree beg end))) (-if-let (node (-last-item (origami-fold-find-path-with-range tree beg end)))
@ -455,9 +453,7 @@ parser to allow for recursive nesting of a parser."
"Facade. Build the tree if it hasn't already been built "Facade. Build the tree if it hasn't already been built
otherwise fetch cached tree." otherwise fetch cached tree."
;; TODO: caching -- don't parse again if there have been no edits since last time ;; TODO: caching -- don't parse again if there have been no edits since last time
(debug-msg "old:") (origami-build-tree buffer (origami-get-parser buffer)))
(debug-msg
(origami-build-tree buffer (origami-get-parser buffer))))
;;; commands ;;; commands
@ -579,7 +575,6 @@ Key bindings:
:lighter nil :lighter nil
:keymap origami-mode-map :keymap origami-mode-map
:init-value nil :init-value nil
(debug-msg "mode: %s" origami-mode)
(if origami-mode ;enabling if t (if origami-mode ;enabling if t
(set (make-local-variable 'origami-tree) (origami-fold-root-node)) (set (make-local-variable 'origami-tree) (origami-fold-root-node))
(origami-reset (current-buffer)))) (origami-reset (current-buffer))))