archive/src/cmd.el

   1 (setq auto-save-default nil)
   2
   3 (defun my-tags-query-replace (a b c)
   4   (interactive)
   5   (cond ((equal c "yes") (tags-query-replace (concat "\\b" a "\\b") b ))
   6         (t (tags-query-replace a b))))
   7 (setq tag-table-files nil) ;;reset
   8 (my-tags-query-replace "fsymeval" "symbol-function" "yes")
   9 (my-tags-query-replace "prinlevel" "*print-level*" "yes")
  10 (my-tags-query-replace "prinlevel" "*print-level*" "yes")
  11
  12
  13 (my-tags-query-replace "symeval" "symbol-value" "yes")
  14 (my-tags-query-replace "show" "ishow" "yes")
  15 (my-tags-query-replace "delete" "zl-delete" "yes")
  16 (my-tags-query-replace "(\\+ " "(f+ " "no")
  17 (my-tags-query-replace "(\\* " "(f* " "no" )
  18 (my-tags-query-replace "(\\- " "(f- " "no" )
  19 (my-tags-query-replace "(\\^ " "(expt  " "no" )
  20 (big-query-replace "\\([( +---]\\)lispm" "\\1cl" "yes" nil)
  21 (my-tags-query-replace "probef" "probe-file" "yes" )
  22 (my-tags-query-replace "fs:*parse-pathname" "pathname" "yes" )
  23 (my-tags-query-replace "\*catch" "catch" "yes")
  24 (my-tags-query-replace "\*throw" "throw" "yes")
  25 (my-tags-query-replace "defconst" "defparameter" "yes")
  26 (my-tags-query-replace "standard-output" "*standard-output*" "yes")
  27 (my-tags-query-replace "multiple-value" "multiple-value-setq" "yes")
  28 (my-tags-query-replace "function-cell-location" "symbol-function" "yes")
  29 (my-tags-query-replace "get-pname" "symbol-name" "yes")
  30 (my-tags-query-replace "substitute" "maxima-substitute" "yes")
  31 (my-tags-query-replace "integerp" "maxima-integerp" "yes")
  32 (my-tags-query-replace "rationalize" "maxima-rationalize" "yes")
  33 (my-tags-query-replace "rationalp" "maxima-rationalp" "yes")
  34 (my-tags-query-replace "constantp" "maxima-constantp" "yes")
  35 (my-tags-query-replace "(string" "(maxima-string" "yes")
  36 (my-tags-query-replace "union" "maxima-union" "yes")
  37 (my-tags-query-replace "remf" "maxima-remf" "yes")
  38 (my-tags-query-replace "float-precision" "MAXIMA-float-precision" "yes")
  39 (my-tags-query-replace "intersection" "maxima-intersection" "yes")
  40
  41 (my-tags-query-replace "remprop" "zl-remprop" "yes")
  42 (my-tags-query-replace "assoc" "zl-assoc" "yes")
  43 (my-tags-query-replace "delete" "zl-delete" "yes")
  44 (my-tags-query-replace "member" "zl-member" "yes")
  45 (my-tags-query-replace "remove" "zl-remove" "yes")
  46 (my-tags-query-replace "get" "zl-get" "yes")
  47
  48
  49 (my-tags-query-replace "lexpr-funcall" "apply" "yes")
  50 (my-tags-query-replace "copytree" "copy-tree" "yes")
  51 (my-tags-query-replace "copylist" "copy-list" "yes")
  52
  53 (my-tags-query-replace "length (the array" "length (the lisp::array" "no")
  54 (my-tags-query-replace ":fill-pointer 0" ":fill-pointer 0 :adjustable t" "no")
  55
  56 (my-tags-query-replace "flonump" "floatp" "yes")
  57 (tags-kbd-macro "(array-active-length"  "\x18q