jao-sloc moved

1 files changed, 0 insertions, 32 deletions

diff --git a/misc/jao-sloc.el b/misc/jao-sloc.el
deleted file mode 100644
index 9e38017..0000000
--- a/misc/jao-sloc.el
+++ /dev/null
@@ -1,32 +0,0 @@
-;; sloc.el -- LOC utilities
-
-(defun count-sloc-region (beg end kind)
-  "Count source lines of code in region (or (narrowed part of)
-   the buffer when no region is active).  SLOC means that empty
-   lines and comment-only lines are not taken into consideration.
-
-   (function by Stefan Monnier).
-  "
-  (interactive
-   (if (use-region-p)
-       (list (region-beginning) (region-end) 'region)
-     (list (point-min) (point-max) 'buffer)))
-  (save-excursion
-    (goto-char beg)
-    (let ((count 0))
-      (while (< (point) end)
-        (cond
-         ((nth 4 (syntax-ppss)) ;; BOL is already inside a comment.
-          (let ((pos (point)))
-            (goto-char (nth 8 (syntax-ppss)))
-            (forward-comment (point-max))
-            (if (< (point) pos) (goto-char pos)))) ;; Just paranoia
-         (t (forward-comment (point-max))))
-        (setq count (1+ count))
-        (forward-line))
-      (when kind
-        (message "SLOC in %s: %s." kind count)))))
-
-
-(provide 'jao-sloc)
-;;; sloc.el ends here