Variable: hfy-etags-cmd

hfy-etags-cmd is a customizable variable defined in htmlfontify.el.gz.

Value

"for src in `find . -type f`;\ndo\n  ETAGS=%s;\n  case ${src} in\n    *.ad[absm]|*.[CFHMSacfhlmpsty]|*.def|*.in[cs]|*.s[as]|*.src|*.cc|\\\n    *.hh|*.[chy]++|*.[ch]pp|*.[chy]xx|*.pdb|*.[ch]s|*.[Cc][Oo][Bb]|\\\n    *.[eh]rl|*.f90|*.for|*.java|*.[cem]l|*.clisp|*.lisp|*.[Ll][Ss][Pp]|\\\n    [Mm]akefile*|*.pas|*.[Pp][LlMm]|*.psw|*.lm|*.pc|*.prolog|*.oak|\\\n    *.p[sy]|*.sch|*.scheme|*.[Ss][Cc][Mm]|*.[Ss][Mm]|*.bib|*.cl[os]|\\\n    *.ltx|*.sty|*.TeX|*.tex|*.texi|*.texinfo|*.txi|*.x[bp]m|*.yy|\\\n    *.[Ss][Qq][Ll])\n          ${ETAGS} -o- ${src};\n          ;;\n      *)\n          FTYPE=`file ${src}`;\n          case ${FTYPE} in\n              *script*text*)\n                  ${ETAGS} -o- ${src};\n                  ;;\n              *text*)\n                  SHEBANG=`head -n1 ${src} | grep '#!' -c`;\n                  if [ ${SHEBANG} -eq 1 ];\n                  then\n                      ${ETAGS} -o- ${src};\n                  fi;\n                  ;;\n          esac;\n          ;;\n  esac;\ndone;"

Documentation

The etags equivalent command to run in a source directory to generate a tags file for the whole source tree from there on down. The command should emit the etags output on stdout.

Two canned commands are provided - they drive Emacs's etags and exuberant-ctags' etags respectively.

Source Code

;; Defined in /usr/src/emacs/lisp/htmlfontify.el.gz
(defcustom hfy-etags-cmd
  ;; We used to wrap this in a `eval-and-compile', but:
  ;; - it had no effect because this expression was not seen by the
  ;;   byte-compiler (defcustom used to quote this argument).
  ;; - it signals an error (`hfy-which-etags' is not defined at compile-time).
  ;; - we want this auto-detection to reflect the system on which Emacs is run
  ;;   rather than the one on which it's compiled.
  (cdr (assoc (hfy-which-etags) hfy-etags-cmd-alist))
  "The etags equivalent command to run in a source directory to generate a tags
file for the whole source tree from there on down.  The command should emit
the etags output on stdout.

Two canned commands are provided - they drive Emacs's etags and
exuberant-ctags' etags respectively."
  :tag   "etags-command"
  :type (let ((clist (list '(string))))
          (dolist (C hfy-etags-cmd-alist)
            (push (list 'const :tag (car C) (cdr C)) clist))
          (cons 'choice clist)))