unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* How to exclude folders from searching IDs “gid”?
@ 2013-08-01 23:36 Rami A
  2013-08-02  5:57 ` Eli Zaretskii
       [not found] ` <mailman.2368.1375436508.12400.help-gnu-emacs@gnu.org>
  0 siblings, 2 replies; 4+ messages in thread
From: Rami A @ 2013-08-01 23:36 UTC (permalink / raw)
  To: help-gnu-emacs

I have this snippet of code in my dotemacs file that helps me view IDs. How is it possible to exclude some folders from the ID search?

; gid.el -- run gid using compilation mode.
;(require 'compile)
;(require 'elisp-utils)
;(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): ") ;confirmation
        (word-around-point)))
        ;)
  ;; Preserve the present compile-command
  (let (compile-command
    (gid-buffer  ;; if gid for each symbol use: compilation-buffer-name-function
     (lambda (mode) (concat "*gid " args "*"))))
    ;; For portability between v18 & 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)
    (let ((beg (point)))
      (forward-sexp 1)
      (buffer-substring beg (point)))))


^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2013-08-02 17:51 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-08-01 23:36 How to exclude folders from searching IDs “gid”? Rami A
2013-08-02  5:57 ` Eli Zaretskii
     [not found] ` <mailman.2368.1375436508.12400.help-gnu-emacs@gnu.org>
2013-08-02 16:56   ` Rami A
2013-08-02 17:51     ` Eli Zaretskii

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).