   "Scan current buffer for all namespaces.
 Store in result `outre-list'."
   (interactive)
-  (setq outre-list (outre--scan-all-ns)))
+  (let ((start (current-time)))
+    (setq outre-list (outre--scan-all-ns))
+    (message "It took %.3f to scan buffer's namespaces"
+             (float-time (time-subtract (current-time) start)))))
 
 ;;;###autoload
 (defun outre-goto-namespace-next ()

  "Return the list '(beg end) of the scope {} of NS."
  (nth 3 ns))

;;;###autoload
(defun outre-parse-namespace (loc &optional parent)
  "Parse the namespace starting at LOC."
  (interactive)
  (save-excursion
    (let (tag-pos name-pos delimiter-pos title beg end)
      (goto-char loc)

;; Author: Dan Harms <danielrharms@gmail.com>
;; Created: Wednesday, June  1, 2016
;; Version: 1.0
;; Modified Time-stamp: <2016-06-16 07:52:53 dharms>
;; Modified by: Dan Harms
;; Keywords: c++ namespace

