home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / docs.lha / latexinfo / elisp / fvpindex-fmt.el < prev    next >
Encoding:
Text File  |  1992-05-12  |  1.4 KB  |  39 lines
  1. (put 'f 'latexinfo-format 'latexinfo-format-noop)
  2. (put 'fb 'latexinfo-format 'latexinfo-format-findex-plus)
  3. (defun latexinfo-format-findex-plus ()
  4.   (latexinfo-index-plus 'latexinfo-findex))
  5.  
  6. (put 'v 'latexinfo-format 'latexinfo-format-noop)
  7. (put 'vb 'latexinfo-format 'latexinfo-format-vindex-plus)
  8. (defun latexinfo-format-vindex-plus ()
  9.   (latexinfo-index-plus 'latexinfo-vindex))
  10.  
  11. (put 'p 'latexinfo-format 'latexinfo-format-noop)
  12. (put 'pb 'latexinfo-format 'latexinfo-format-pindex-plus)
  13. (defun latexinfo-format-pindex-plus ()
  14.   (latexinfo-index-plus 'latexinfo-pindex))
  15.  
  16. (defun latexinfo-index-plus (indexvar)
  17.   (let ((arg (latexinfo-parse-expanded-arg)))
  18.     (latexinfo-discard-command)
  19.     (set indexvar
  20.      (cons (list arg
  21.                      latexinfo-last-node
  22.                      ;; Region formatting may not provide last node position.
  23.              (if latexinfo-last-node-pos
  24.                          (1+ (count-lines latexinfo-last-node-pos (point)))
  25.                        1))
  26.            (symbol-value indexvar)))
  27.     (insert arg)
  28.     (goto-char latexinfo-command-start)
  29.     ))
  30.  
  31. ;; Allow access to internal LaTeX index macros as noops.
  32. (put 'vrindex 'latexinfo-format 'latexinfo-format-noop)
  33. (put 'cpindex 'latexinfo-format 'latexinfo-format-noop)
  34. (put 'fnindex 'latexinfo-format 'latexinfo-format-noop)
  35. (put 'pgindex 'latexinfo-format 'latexinfo-format-noop)
  36. (put 'tpindex 'latexinfo-format 'latexinfo-format-noop)
  37. (put 'kyindex 'latexinfo-format 'latexinfo-format-noop)
  38.  
  39.