.

1 files changed, 0 insertions, 33 deletions

diff --git a/gid.el b/gid.el
deleted file mode 100644
index 01f855f..0000000
--- a/gid.el
+++ /dev/null
@@ -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)))))