diff options
| -rw-r--r-- | depend.out | 18 | ||||
| -rw-r--r-- | gid.el | 33 |
2 files changed, 0 insertions, 51 deletions
diff --git a/depend.out b/depend.out deleted file mode 100644 index 2ce8ccb..0000000 --- a/depend.out +++ /dev/null @@ -1,18 +0,0 @@ -mkid$o: mkid.c strxtra.h alloc.h idfile.h hash.h token.h bitops.h misc.h \ - filenames.h scanners.h -lid$o: lid.c alloc.h idfile.h hash.h token.h bitops.h strxtra.h misc.h filenames.h -fid$o: fid.c idfile.h hash.h bitops.h filenames.h misc.h strxtra.h alloc.h token.h -idx$o: idx.c misc.h filenames.h scanners.h -misc$o: misc.c strxtra.h misc.h -scanners$o: scanners.c strxtra.h token.h alloc.h scanners.h -idfile$o: idfile.c alloc.h idfile.h hash.h strxtra.h -filenames$o: filenames.c strxtra.h filenames.h misc.h error.h -bitops$o: bitops.c bitops.h -token$o: token.c token.h -regex$o: regex.c regex.h -alloca$o: alloca.c -getopt$o: getopt.c -getopt1$o: getopt1.c getopt.h -strcasecmp$o: strcasecmp.c -strerror$o: strerror.c -iid$o: iid.c ./strxtra.h ./obstack.h ./xmalloc.h @@ -1,33 +0,0 @@ -;;; put this in your GNU emacs startup file '~/.emacs' . -;;; or byte-compile it and autoload from somewhere else. - -(require 'compile) -(provide 'gid) - -(defvar gid-command "gid" "The command run by the gid function.") - -(defun gid (args) - "Run gid, with user-specified ARGS, and collect output in a buffer. -While gid runs asynchronously, you can use the \\[next-error] command to -find the text that gid hits refer to. The command actually run is -defined by the gid-command variable." - (interactive (list (read-input - (concat "Run " gid-command " (with args): ") (word-around-point)))) - (let (compile-command - (compilation-error-regexp-alist grep-regexp-alist) - (compilation-buffer-name-function (lambda (mode) - (concat "*" gid-command " " args "*")))) - ;; For portability to v19, use compile rather than compile-internal. - (compile (concat gid-command " " args)))) - -(defun word-around-point () - "Return the word around the point as a string." - (save-excursion - (if (not (eobp)) - (forward-char 1)) - (forward-word -1) - (forward-word 1) - (forward-sexp -1) - (buffer-substring (point) (progn - (forward-sexp 1) - (point))))) |