home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / energize / visit-use.elc < prev    next >
Encoding:
Text File  |  1993-04-01  |  4.0 KB  |  36 lines
  1. ;;; compiled by devin@scylla on Fri Oct  9 14:42:41 1992
  2. ;;; from file /cadillac-scylla/devin/lemacs/lisp/energize/visit-use.el
  3. ;;; emacs version 19.3.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar next-use-show-le-browser t "\
  14. *If t next-use-command will show both the next use and the le-browser buffer")
  15. (byte-code "└┴!¼é┬└├!¼é┬└─!¼é┬└┼!¼é┬└╞!¼â┬└╟!¼â┬╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫Mê╪┘Mê┌█Mê▄▌Mê▐▀Mç" [boundp next-use-command-name nil next-use-label next-use-from-extent next-use-name next-use-to-extent next-use-position extent-after #[(pos) "└p!ë½Ä┬    ! W½ç└    !ë¼r    )ç" [next-extent extent extent-start-position pos] 3] next-use-start-pos #[nil "èebê└    ┬├#¡ü`)ç" [search-forward next-use-label nil t] 4] next-use-get-name #[(name) "G┴Zë├V½Ä\nH─=¼ç\n┴Zë¬n\nH─U½ê\n┴\\┼O¬ü)ç" [name 1 colon 0 58 nil] 4] next-use-init #[(command label) "┴=¼ë┬├─`!┼╞$ê    \n╦ ë ¼å═╬!ê¬î╧ !╤╥ !)╘ ç" [major-mode energize-browser-mode energize-execute-command "browse_le" extent-at nil t command next-use-command-name label next-use-label next-use-start-pos pos error "no uses" extent-after next-use-from-extent next-use-get-name buffer-name next-use-name next-use-show-both] 6] next-use-end-pos #[nil "èebê└    !ê┬├─┼#ê`)ç" [search-forward next-use-label re-search-forward "^ *[A-Za-z ]*: " nil end] 4] next-use-next-to-extent #[nil "└    !qê┬ ─    !ë½ù┼    ! W½É╞p    ╟$¼ç─    !ë¼i    ½ë┼    ! Y½é╟    )ç" [extent-buffer next-use-from-extent next-use-end-pos end-pos next-extent extent-start-position energize-list-menu nil next-use-command-name] 6] next-use-show-from #[nil "½¬┴\n!qê├┼┴\n!!è╟\n!bê╚yê`)    ╩    \"ê╦    \"+ç╠═╬┴\n!!\"ç" [next-use-show-le-browser extent-buffer next-use-from-extent t pop-up-windows display-buffer w extent-start-position 0 pos set-window-point set-window-start message "next use of %s" buffer-name] 5] next-use-show-to #[nil "└    \n├─$ê┼`!╟!ëç" [energize-execute-command next-use-command-name next-use-from-extent nil t extent-at next-use-to-extent extent-start-position next-use-position] 5] next-use-show-both #[nil "└ ê┴ ç" [next-use-show-from next-use-show-to] 1] next-use-next #[nil "└    !qê\n├    !W½ª\nbê─
  16. ├    !╞#½Ü`╟ ê╚
  17. G!ê    ½â╩ ê╦ ê╠└    !!ç═ ½â╬ ç╧ ê╨╤!ç" [extent-buffer next-use-to-extent next-use-position extent-end-position search-forward next-use-name t push-mark backward-char zmacs-regions zmacs-activate-region next-use-show-from pop-to-buffer next-use-next-to-extent next-use-show-both next-use-terminate error "no more"] 4] next-use-terminate #[nil "└└└└└└ëç" [nil next-use-command-name next-use-label next-use-from-extent next-use-name next-use-to-extent next-use-position] 2] next-use-go #[(label command) "¼à┴\n \"ç─ ç" [next-use-from-extent next-use-init label command next-use-next] 3]] 2)
  18. (fset 'next-use-command #[(arg) "½â┴ ê┬├─\"ç" [arg next-use-terminate next-use-go "source" "Used By:"] 3 "\
  19. Show the next place where the current language element is used.
  20. The current language element is the one that point is on for source buffers
  21. or the element displayed in a language element browser buffer.
  22. Repeated calls to this functions visit all the callers in sequence.  
  23. The caller function is first displayed then all the places in the caller that
  24. call the language element are visited.
  25.  
  26. With prefix arg set, start a visit from scratch on the current language 
  27. element. 
  28.  
  29. The variable next-use-show-le-browser controls if this command should display 
  30. both the language element browser buffer and the next user or just the next
  31. user of the current language element." "P"])
  32. (define-key global-map [(control x) \\] 'next-use-command)
  33. (fset 'next-use-start #[nil "└┴!ç" [next-use-command 4] 2 "\
  34. Start visiting the uses of a language element.
  35. If executed in a LE Browser buffer visit the uses of the language element
  36. in the buffer.  In a source buffer visit the uses of the language element
  37. at (point)" nil])
  38.