;ELC ;;; compiled by cthomp@willow on Mon Aug 30 19:07:20 1993 ;;; from file /era/era-working/editor/lisp/energize/energize-visit-use.el ;;; emacs version 19.8 (beta10) Lucid. ;;; bytecomp version 2.18; 28-aug-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar energize-next-use-show-le-browser t "\ *If t energize-next-use-command will show both the next use and the le-browser buffer") (defvar energize-next-use-search-by-file nil "\ *If t energize-next-use-command will show all uses in a file before going to the next file") (byte-code "!!!!!!!! !\n! ! ! !MMMMMMMMMMMMMMMMMMMMMMMM@MABMCDMEFM" [boundp energize-next-use-command-name nil energize-next-use-label energize-next-use-name energize-next-use-from-mark energize-next-use-source-start-mark energize-next-use-source-end-mark energize-next-use-source-current-mark energize-next-use-current-file energize-next-use-file-began-mark energize-next-use-from-extent-cache energize-next-use-history energize-next-use-history-pointer energize-next-use-marker-heap energize-next-use-make-a-marker #[nil " \nB )" [make-marker m energize-next-use-marker-heap] 3] energize-next-use-copy-a-marker #[(mark) " ! B\n)" [copy-marker mark m energize-next-use-marker-heap] 3] energize-next-use-cleanup-markers #[nil "@At" [energize-next-use-marker-heap nil] 4] extent-after #[(pos) "p! ! W !r )" [next-extent extent extent-start-position pos] 3] energize-next-use-start-pos #[nil "eb #`)" [search-forward energize-next-use-label nil t] 4] energize-next-use-start-pos-offset #[nil "!p!=\n=y`)" [energize-next-use-from-mark marker-buffer major-mode energize-browser-mode 0] 3] energize-next-use-get-name #[(name) "GZV\nH=\nZn\nHU\n\\O)" [name 1 colon 0 58 nil] 4] energize-next-use-valid-from-extent-p #[(buff extent) " \n\" $ C\nB )" [assoc extent energize-next-use-from-extent-cache cache-entry energize-list-menu buff nil energize-next-use-command-name] 6] energize-next-use-adjust-for-start-offset #[(current wanted-pos) " !!W‰p\"!V!Q + " [wanted-pos energize-next-use-end-pos nil current extent-after energize-next-use-start-pos try ok end-pos extent-start-position energize-next-use-valid-from-extent-p extent-end-position next-extent] 5] energize-next-use-set-marks #[(extent buffer) "  ! " [energize-next-use-from-mark make-marker extent-start-position extent buffer] 3] energize-next-use-init #[(command label) " \n=p`!$`!$!   ! \"!p\" !GV O#ZdV) ` `{)*%* )" [energize-next-use-start-pos-offset start-offset major-mode energize-browser-mode energize-list-menu energize-extent-at nil "browse_le" energize-execute-command t error "command undefined unless in a LE buffer or at a LE definition form" command energize-next-use-command-name label energize-next-use-label energize-next-use-current-file energize-next-use-from-extent-cache energize-next-use-history energize-next-use-history-pointer energize-next-use-start-pos pos energize-next-use-adjust-for-start-offset extent-after extent "no uses" energize-next-use-set-marks energize-next-use-get-name buffer-name s l 0 beginning-of-buffer search-forward 1 backward-sexp forward-sexp energize-next-use-name energize-next-use-show-both] 6] energize-next-use-end-pos #[nil "eb !#`)" [search-forward energize-next-use-label re-search-forward "^ *[A-Za-z ]*: " nil end] 4] energize-next-use-from-extent-source-info #[(from-extent-entry) "@A Ë *" [from-extent-entry source-entry extent ((byte-code " $) ! E )" [nil pre-display-buffer-function energize-execute-command energize-next-use-command-name extent t from-extent-entry energize-next-use-copy-a-marker point-marker energize-next-use-make-a-marker window-start source-entry] 6))] 2] energize-next-use-from-extent-source-mark #[(source-entry) "@" [source-entry] 1] energize-next-use-from-extent-source-start-mark #[(source-entry) "AA@" [source-entry] 1] energize-next-use-from-extent-source-seen-p #[(source-entry) "A@" [source-entry] 1] energize-next-use-from-extent-set-source-seen-p #[(source-entry) "A" [source-entry t] 2] energize-next-use-next-to-extent #[(advance) " ! !  q !ʼn !    !    !  !!   ! Wʼn  \" ?!!! =!?+) ! 5  \" !  ! !) s !!+*" [marker-buffer energize-next-use-from-mark marker-position from-pos buff nil result energize-next-use-end-pos energize-extent-at advance extent-after extent end-pos energize-next-use-search-by-file energize-next-use-current-file energize-next-use-source-start-mark energize-next-use-file-began-mark make-marker next-extent message "Searching for next use in current file..." "Searching for next use..." extent-start-position energize-next-use-valid-from-extent-p from-extent-entry energize-next-use-from-extent-source-info source-entry energize-next-use-from-extent-source-mark source-marker energize-next-use-from-extent-source-seen-p energize-next-use-set-marks t pos "Searching for next use in current file...done" "Searching for next use...done"] 4] energize-next-use-show-from #[(&optional mark) " \n!! ! by `\"* \"" [mark energize-next-use-from-mark energize-next-use-show-le-browser marker-buffer marker-position from-pos buff pop-to-buffer 0 set-window-start selected-window message "next use of %s" energize-next-use-name] 4] energize-next-use-show-to #[nil " ! !\n \n\"\n\"\n!  !!!?!  !!#b !`!\n-\n!   ɓɓ\n!ɓ)-" [marker-buffer energize-next-use-from-mark buff marker-position from-pos energize-extent-at from-extent energize-next-use-valid-from-extent-p from-extent-entry nil source-extent energize-next-use-from-extent-source-info source-entry energize-next-use-from-extent-source-mark source-marker source-buffer source-pos energize-split-screens-p pre-display-buffer-function pop-to-buffer set-window-start selected-window energize-next-use-from-extent-source-start-mark t energize-next-use-from-extent-set-source-seen-p extent-start-position start-pos energize-next-use-source-start-mark make-marker energize-next-use-source-end-mark energize-next-use-source-current-mark extent-end-position] 5] energize-next-use-search-for-name #[nil "\n! \n!Q # )k +!ˇ" [nil marker-position energize-next-use-source-end-mark end-pos found case-fold-search buffer-syntactic-context-flush-cache re-search-forward "[^A-Za-z0-9_]" regexp-quote energize-next-use-name t buffer-syntactic-context backward-char 1] 4] energize-next-use-not-lexically-apparent #[nil "\n\"" [message "next use of %s is here, but not lexically apparent" energize-next-use-name] 3] energize-next-use-show-both #[nil " \n\n! !!  qWb )+ ! ! ѓEB" [energize-next-use-show-from energize-next-use-show-to energize-next-use-source-start-mark marker-buffer marker-position energize-next-use-source-current-mark energize-next-use-source-end-mark end-pos current-pos buff energize-next-use-search-for-name energize-next-use-next energize-next-use-not-lexically-apparent energize-next-use-copy-a-marker energize-next-use-from-mark energize-next-use-make-a-marker window-start nil energize-next-use-history energize-next-use-history-pointer] 6] energize-next-use-next #[nil " \" !!! \n \n\np=\nq   !\"\n   W b ` ?\n! \n\"`\"G!  !! `FB) \n ! !," [energize-next-use-adjust-for-start-offset nil energize-next-use-start-pos-offset marker-buffer energize-next-use-source-start-mark marker-position energize-next-use-source-current-mark energize-next-use-source-end-mark end-pos current-pos buff new-start energize-next-use-set-marks energize-next-use-from-mark energize-next-use-search-for-name energize-next-use-show-from energize-split-screens-p pre-display-buffer-function pop-to-buffer set-window-buffer selected-window push-mark t backward-char energize-next-use-name zmacs-regions zmacs-activate-region energize-next-use-copy-a-marker energize-next-use-make-a-marker window-start energize-next-use-history energize-next-use-history-pointer energize-next-use-next-to-extent energize-next-use-show-both energize-next-use-terminate error "no more"] 7] energize-next-use-terminate #[nil "  " [nil energize-next-use-command-name energize-next-use-label energize-next-use-name energize-next-use-from-mark energize-next-use-source-start-mark energize-next-use-source-current-mark energize-next-use-source-end-mark energize-next-use-file-began-mark energize-next-use-cleanup-markers] 3] energize-next-use-from-history #[(backward) " A  A\n= Au) @@ A@ AA@ AAA@ !!!!! !#b!`\"b -" [backward energize-next-use-history-pointer temp energize-next-use-history history-entry from-mark source-mark source-start-mark source-point-mark energize-next-use-show-from marker-position pop-to-buffer marker-buffer set-window-start selected-window t push-mark zmacs-regions zmacs-activate-region energize-next-use-not-lexically-apparent] 5] energize-next-use-go #[(label command) "!\n = ! \"" [energize-next-use-from-mark marker-position energize-next-use-history-pointer energize-next-use-history energize-next-use-next energize-next-use-from-history nil energize-next-use-init label command] 3] energize-next-use-previous #[nil "A!!" [energize-next-use-history-pointer energize-next-use-from-history t error "no prior use"] 2]] 2) (fset 'energize-next-use-command #[(arg) "=  \"" [arg 1 energize-next-use-previous energize-next-use-terminate energize-next-use-go "source" "Used By:"] 3 "\ Show the next place where the current language element is used. The current language element is the one that point is on for source buffers or the element displayed in a language element browser buffer. Repeated calls to this functions visit all the callers in sequence. With prefix arg = 1, back up to the last use. With prefix arg > 1, start a visit from scratch on the current language element. If the point is on a particular user in the language element browser, the search will be (re)started in that user. The variable energize-next-use-show-le-browser controls if this command should display both the language element browser buffer and the next user or just the next user of the current language element. The variable energize-next-use-search-by-file controls whether all uses within a given file should be shown in sequence. If the value is nil, the uses are shown in the order in which they appear in the LE Browser. If the value is non-nil, the all uses in a given file are shown before proceeding to the next use in another file." "P"]) (define-key global-map [(control x) \\] 'energize-next-use-command) (fset 'energize-next-use-start #[nil "!" [energize-next-use-command 4] 2 "\ Start visiting the uses of a language element. If executed in a LE Browser buffer visit the uses of the language element in the buffer. In a source buffer visit the uses of the language element at (point)" nil])