;ELC ;;; compiled by mcuddy@whitewater on Wed May 18 05:09:44 1994 ;;; from file /u/jwz/emacs19/lisp/modes/outl-mouse.el ;;; emacs version 19.10 Lucid (beta23). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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 outline-up-glyph-bitmap (byte-code "PE!" [make-pixmap 10 "00h" "h"] 5) "\ Bitmap object for outline up glyph.") (defvar outline-up-depressed-glyph-bitmap (byte-code "PE!" [make-pixmap 10 "00X" "X"] 5) "\ Bitmap object for outline depressed up glyph.") (defvar outline-down-glyph-bitmap (byte-code "PE!" [make-pixmap 10 "" "hh00"] 5) "\ Bitmap object for outline down glyph.") (defvar outline-down-depressed-glyph-bitmap (byte-code "PE!" [make-pixmap 10 "" "XX00"] 5) "\ Bitmap object for outline depressed down glyph.") (defvar outline-glyph-menu '("Outline Commands" ["Hide all" hide-body t] ["Hide subtrees" hide-subtree t] ["Hide body" hide-body t] ["Show subtrees" show-subtree t] ["Show body" show-entry t]) "\ Menu of commands for outline glyphs.") (byte-code "!\n\" \"!!!\"\"$\"$\"$\"$\"$\"$\"$\"" [fboundp set-pixmap-contributes-to-line-height outline-down-glyph-bitmap nil outline-up-glyph-bitmap require annotations advice outline add-hook outline-mode-hook outline-mouse-hooks outline-minor-mode-hook ad-add-advice outline-minor-mode (outline-mode-mouse nil t (advice lambda nil "Advise outline-minor-mode to delete glyphs when switched off." (if (not outline-minor-mode) (progn (outline-delete-glyphs) (show-all))))) after ad-activate show-all (show-all-ad nil t (advice lambda nil "Advise show-all to sync headings." (outline-sync-visible-sub-headings-in-region (point-min) (point-max)))) hide-subtree (hide-subtree-ad nil t (advice lambda nil "Advise hide-subtree to sync headings." (outline-sync-visible-sub-headings))) hide-entry (hide-entry-ad nil t (advice lambda nil "Advise hide-entry to sync headings." (outline-sync-visible-sub-headings))) hide-body (hide-body-ad nil t (advice lambda nil "Advise hide-body to sync headings." (outline-sync-visible-sub-headings-in-region (point-min) (point-max)))) show-subtree (show-subtree-ad nil t (advice lambda nil "Advise show-subtree to sync headings." (outline-sync-visible-sub-headings))) show-entry (show-entry-ad nil t (advice lambda nil "Advise shown-entry to sync headings." (outline-sync-visible-sub-headings)))] 5) (fset 'outline-mouse-hooks #[nil " \"! \" # \"#\n#)" [outline-add-glyphs keymapp lookup-key current-local-map outline-minor-mode-prefix define-key make-sparse-keymap outline "" outline-heading-add-glyph outline-mode-map ""] 4 "\ Hook for installing outlining with the mouse."]) (fset 'outline-add-glyphs #[nil "eb m? t)" [outline-on-heading-p outline-next-heading outline-heading-add-glyph-1] 1 "\ Add annotations and glyphs to all heading lines that don't have them." nil]) (fset 'outline-delete-glyphs #[nil " \")" [mapcar outline-heading-delete-glyph annotation-list] 3 "\ Remove annotations and glyphs from heading lines."]) (fset 'outline-heading-delete-glyph #[(ext) " !by \" !LJ" [extent-start-position ext 0 outline-on-heading-p extent-property outline delete-annotation nil] 3 "\ Delete annotation and glyph from a heading with annotation EXT."]) (fset 'outline-heading-add-glyph #[nil " )" [outline-heading-add-glyph-1] 1 "\ Interactive version of outline-heading-add-glyph-1." nil]) (fset 'outline-heading-add-glyph-1 #[nil " ? ? `) &\n `) &    \" # \" \" \"  \" # \" \" !*ȇ" [outline-on-heading-p outline-heading-has-glyph-p outline-back-to-heading make-annotation outline-down-glyph-bitmap outline-end-of-heading text nil t outline-down-depressed-glyph-bitmap outline-up-glyph-bitmap outline-up-depressed-glyph-bitmap anot1 anot2 set-annotation-data set-extent-property outline up set-annotation-action outline-up-click set-annotation-menu outline-glyph-menu set-extent-priority 1 down outline-down-click annotation-hide] 8 "\ Add glyph to the end of heading line which point is on. Returns nil if point is not on a heading or glyph already exists."]) (fset 'outline-heading-has-glyph-p #[nil "" [found (byte-code "Š `) `\\)p#\"Ƈ" [mapcar #[(a) " \"\"" [extent-property a outline throw found t] 3] annotations-in-region outline-back-to-heading outline-end-of-heading 1 nil] 6)] 2 "\ Return t if heading has an outline glyph."]) (fset 'outline-sync-visible-sub-headings-in-region #[(pmin pmax) " p#\"" [mapcar #[(x) " !by \"=h=? !! !! ! !" [extent-start-position x 0 extent-property outline down 13 outline-more-to-hide annotation-reveal annotation-data annotation-hide outline-hidden-p] 3] annotations-in-region pmin pmax] 6 "\ Make sure all anotations on headings in region PMIN PMAX are displayed correctly."]) (fset 'outline-sync-visible-sub-headings #[nil "` `\"" [outline-sync-visible-sub-headings-in-region outline-end-of-subtree] 3 "\ Make sure all anotations on sub-headings below the one point is on are displayed correctly."]) (fset 'outline-fold-out #[(annotation) "yÏ m?`) ) )\n!\n!!" [0 nil (byte-code "!`)" [outline-next-visible-heading 1] 2) ((error)) outline-next-heading show-children outline-sync-visible-sub-headings outline-hidden-p show-entry annotation-hide annotation annotation-reveal annotation-data] 3 "\ Fold out the current heading."]) (fset 'outline-fold-in #[(annotation) "y ) ! !!! ) " [0 outline-hidden-p hide-entry outline-more-to-hide annotation-hide annotation annotation-reveal annotation-data t hide-subtree hide-leaves outline-sync-visible-sub-headings] 3 "\ Fold in the current heading."]) (fset 'outline-more-to-hide #[(&optional arg) " ?‡ ƏW ? ?)" [outline-hidden-p arg t outline-level nil (byte-code "!\n " [outline-next-visible-heading 1 outline-level] 2) ((error 0))] 4 "\ Return t if there are more visible sub-headings or text. With ARG return t only if visible sub-headings have no visible text."]) (fset 'outline-hidden-p #[nil " )d #*" [outline-next-heading end-of-entry outline-back-to-heading search-forward " " t] 5 "\ Return t if point is on the header of a hidden subtree."]) (fset 'outline-up-click #[(data ev) "\n!!b\n!!)" [extent-end-position event-glyph ev outline-fold-in] 3 "\ Annotation action for clicking on an up arrow. DATA is the annotation data. EV is the mouse click event."]) (fset 'outline-down-click #[(data ev) "\n!!b\n!!)" [extent-end-position event-glyph ev outline-fold-out] 3 "\ Annotation action for clicking on a down arrow. DATA is the annotation data. EV is the mouse click event."]) (byte-code "!!" [provide outl-mouse outln-18] 2)