Your Ad Here

advanced code snippet search

Posted By

lieutar on 12/10/10


Tagged


Versions (?)

Who likes this?

1 person have marked this snippet as a favorite

ef


hook-finder

 / Published in: Emacs Lisp
 
Expand | Embed | Plain Text 
  1. (let ((L ()))
  2.   (mapatoms
  3.    (lambda (atom)
  4.      (let ((name (symbol-name atom)))
  5.        (if (and (boundp atom)
  6.                 (string-match "-\\(hooks?\\|functions\\)\\'" name)
  7.                 (not (string-match "-mode-hook" name))
  8.                 (not (string-match "\\`ange-ftp-" name))
  9.                 (not (string-match "\\`bookmark-" name))
  10.                 (not (string-match "\\`comint-" name))
  11.                 (not (string-match "\\`custom-" name))
  12.                 (not (string-match "\\`cl-" name))
  13.                 (not (string-match "\\`byte-compile-" name))
  14.                 (not (string-match "\\`Info-" name))
  15.                 (not (string-match "\\`calendar-" name))
  16.                 (not (string-match "\\`cperl-" name))
  17.                 (not (string-match "\\`eieio-" name))
  18.                 (not (string-match "\\`tramp-" name))
  19.                 (not (string-match "\\`vc-" name))
  20.                 (not (string-match "\\`speedbar-" name))
  21.                 (not (string-match "\\`semanticdb-" name))
  22.                 (not (string-match "\\`semantic-" name))
  23.                 (not (string-match "\\`elscreen-" name))
  24.                 (not (string-match "\\`org-" name))
  25.                 (not (string-match "\\`ediff-" name))
  26.                 (not (string-match "\\`w3m-" name))
  27.                 (not (string-match "\\`skk-" name))
  28.                 (not (string-match "\\`anything-" name))
  29.                 (not (string-match "\\`rmail-" name))
  30.                 (not (string-match "\\`dired-" name))
  31.                 (not (string-match "\\`url-" name))
  32.                 (not (string-match "\\`column-number-mode-" name))
  33.                 )
  34.            (setq L (cons atom L))))))
  35.   (dolist (a (sort L (lambda (a b) (string< (symbol-name a)(symbol-name b)))))
  36.     (insert (format "%s\n" a)))
  37.   (length L))

Report this snippet  

You need to login to post a comment.