Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: oggy/dotemacs
base: 6227437347
...
head fork: oggy/dotemacs
compare: 8caf8a4a2a
  • 2 commits
  • 3 files changed
  • 0 commit comments
  • 1 contributor
Showing with 2 additions and 61 deletions.
  1. +0 −55 lib/etags.el
  2. +0 −5 lib/g-etags.el
  3. +2 −1  lib/vertical-motion.el
View
55 lib/etags.el
@@ -1,55 +0,0 @@
-;;;; Private
-
-(defun etags-select (list f)
- (let (result element)
- (while list
- (setq element (car list))
- (when (funcall f element)
- (setq result (cons element result)))
- (setq list (cdr list)))
- (reverse result)))
-
-(defun etags-directory-files-recursive (dir &optional match)
- (let ((output (etags-shell-command-output
- "find" (expand-file-name dir) "-type" "f")))
- (etags-select (split-string output "\n" t)
- (lambda (path) (or (null match) (string-match match path))))))
-
-(defun etags-shell-command-output (program &rest args)
- (with-temp-buffer
- (apply 'call-process program nil (current-buffer) nil args)
- (buffer-string)))
-
-;;;; Public
-
-(defvar etags-bin "etags"
- "The etags executable.")
-
-;;;###autoload
-(defun etags-make-tags-file (dir re out)
- "Make a tags file for a bunch of source files.
-
-Prompt for:
- - the directory at the root of the source tree.
- - a regex to match target filenames.
- - the output filename
-
-The given root directory is searched recursively to find files which
-match the given regex. Any existing tags file with the same name as
-the output given is overwritten.
-
-Uses variable `etags-bin'."
- (interactive "DRoot directory: \nsFile regex: \nFOutput files: ")
- (if (file-exists-p out) (delete-file out))
- (setq out (expand-file-name out))
- (let* ((paths (etags-directory-files-recursive dir re))
- (progress-reporter (make-progress-reporter "Etagging files..."
- 0 (length paths))))
- (while paths
- (call-process etags-bin nil nil nil "-a" (car paths) "-o" out)
- (setq paths (cdr paths)))
- (progress-reporter-done progress-reporter)))
-
-;;;; Provide
-
-(provide 'etags)
View
5 lib/g-etags.el
@@ -1,10 +1,5 @@
(eval-and-compile (require 'em-glob))
-;; For some reason, the built-in etags lib is not being loaded. We
-;; only use the etags-bin variable from it, so just define it here.
-(defvar etags-bin "etags"
- "The etags executable.")
-
;;;###autoload
(defun g-etags-make-tags-file (glob out)
"Output a tags file OUT for files matching GLOB.
View
3  lib/vertical-motion.el
@@ -8,7 +8,8 @@
(condition-case nil
(progn
(while (not (zerop count))
- (forward-line sign)
+ (when (/= (forward-line sign) 0)
+ (error))
(setq s (save-excursion
(back-to-indentation)
(current-column))

No commit comments for this range

Something went wrong with that request. Please try again.