;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312%\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\322%\210\313\326\315\316\327DD\330\321\331%\210\313\332\315\316\333DD\334\321\335%\207" [require tablist seq map bookmark custom-declare-group navigel nil "Navigel." :group magit-extensions custom-declare-variable navigel-changed-hook funcall function #[0 "\300\207" [nil] 1] "Normal hook run after a navigel's tablist buffer has been refreshed or populated." :type hook navigel-init-done-hook #[0 "\300\207" [nil] 1] "Normal hook run after a navigel's tablist buffer has been initially populated." navigel-display-messages #[0 "\300\207" [t] 1] "Whether to display navigel's informative messages in the echo area." boolean navigel-single-buffer-apps #[0 "\300\207" [nil] 1] "Applications using a single buffer to display all entities.\n\nEither a list of symbols denoting applications, t for all\napplications or nil, the default, for none." (choice (const :tag "None" nil) (const :tag "All applications" t) (repeat (symbol :tag "Application")))] 6) #@58 Specify the entity that was used to generate the buffer. (defvar navigel-entity nil (#$ . 1201)) #@63 Specify the application that was used to generate the buffer. (defvar navigel-app nil (#$ . 1304)) #@157 An alist of (APP . BUFFER) associating app symbols with their buffer name. This name is used only for applications that are working in single-buffer mode. (defvar navigel-single-buffers nil (#$ . 1410)) #@301 Cache of entity states for single-buffer applications. This cache is an alist of (APP . STATE) pairs, where in turn STATE is an alist of (ENTITY-ID . ENTITY-STATE) pairs, associating to each entity that has been displayed by APP in this buffer its last state (as returned by `navigel--save-state'). (defvar navigel--state-cache nil (#$ . 1621)) (make-variable-buffer-local 'navigel--state-cache) #@140 Setup `tablist' operations in current buffer. OPERATION and ARGS are defined by `tablist-operations-function'. (fn OPERATION &rest ARGS) (defalias 'navigel--tablist-operation-function #[385 "\300\267\202\301\207\302@\303\"\207\304@\305\"\207\303\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (supported-operations 6 find-entry 8 delete 14)) (find-entry delete) navigel-open nil navigel-delete navigel--revert-buffer] 5 (#$ . 2025)]) #@170 Return the name of entity at point for `imenu'. This function is used as a value for `imenu-extract-index-name-function'. Point should be at the beginning of the line. (defalias 'navigel--imenu-extract-index-name #[0 "\300\301\302\206`\303\"\262!\207" [navigel-imenu-name nil get-text-property tabulated-list-id] 5 (#$ . 2517)]) #@123 Move point to previous line in current buffer. This function is used as a value for `imenu-prev-index-position-function'. (defalias 'navigel--imenu-prev-index-position #[0 "o?\205\300y\207" [-1] 1 (#$ . 2858)]) #@86 Move point to ENTITY. Return non-nil if ENTITY is found, nil otherwise. (fn ENTITY) (defalias 'navigel-go-to-entity #[257 "eb\210`dU\204\300\301 \"\204\302y\210\202`dU?\207" [navigel-equal navigel-entity-at-point 1] 4 (#$ . 3077)]) (put 'navigel-app 'cl-generic--context-rewriter #[257 "\300\301DD\207" [navigel-app eql] 4 "\n\n(fn APP)"]) #@56 Open a navigel buffer showing BOOKMARK. (fn BOOKMARK) (defalias 'navigel--bookmark-jump #[257 "\301\302\"\301\303\"\301\300\"\304\"\210\305\306p\")\207" [navigel-app bookmark-prop-get navigel-entity navigel-target navigel-open message "Current buffer at the end of navigel--bookmark-jump: %s"] 6 (#$ . 3432)]) #@193 Display a message in the echo area. This function only has an effect when `navigel-display-messages' is true. ARGS are the message format followed by any arguments it takes. (fn &rest ARGS) (defalias 'navigel--message #[128 "\205\301\302\"\207" [navigel-display-messages apply message] 4 (#$ . 3756)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\300\310\302\310\311\304#\312#\210\306\310\304\311\304\313%\210\300\314\302\314\315\304#\316#\210\306\314\304\315\304\317%\210\300\320\302\320\321\304#\322#\210\306\320\304\321\304\323%\210\300\324\302\324\325\304#\326#\210\306\324\304\325\304\327%\210\300\330\302\330\331\304#\332#\210\306\330\304\331\304\333%\210\300\334\302\334\335\304#\336#\210\306\334\304\335\304\337%\210\300\340\302\340\341\304#\342#\210\306\340\304\343\304\344%\210\300\345\302\345\346\304#\347#\210\306\345\304\346\304\350%\210\300\351\302\351\352\304#\353#\210\306\351\304\352\304\354%\210\300\355\302\355\304\211#\356#\210\306\355\304\357\304\360%\210\300\361\302\361\362\304#\363#\210\306\361\304\362\304\364%\210\306\361\304\365\304\366%\210\300\367\302\367\370\304#\371#\210\306\367\304\370\304\372%\210\300\373\302\373\374\304#\375#\210\306\373\304\374\304\376%\210\300\377\302\377\201@\304#\201A#\210\306\377\304\201@\304\201B%\210\300\201C\302\201C\201D\304#\201E#\210\306\201C\304\201D\304\201F%\210\300\201G\302\201G\201H\304#\201I#\210\306\201G\304\201H\304\201J%\210\300\201K\302\201K\201L\304#\201M#\210\306\201K\304\201L\304\201N%\210\300\201O\302\201O\201P\304#\201Q#\210\306\201O\304\201P\304\201R%\210\306\201O\304\201S\304\201T%\210\300\201U\302\201U\201V\304#\201W#\210\306\201U\304\201V\304\201X%\210\306\201U\304\201Y\304\201Z%\210\306\201[\304\211\211\201\\%\207" [defalias navigel-name cl-generic-define (entity) nil "Return a short string describing ENTITY.\n\nThe returned value is the default for `navigel-buffer-name',\n`navigel-tablist-name' and `navigel-imenu-name'. Those can be\noverridden separately if necessary.\n\n(fn ENTITY)" cl-generic-define-method #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn ENTITY)"] navigel-entity-id (entity) "Return a possibly unique identifier for the given ENTITY.\n\nUnder some circumstances, Navigel will cache information about\ndisplayed entities, using its id as key. By default, this\nfunction calls `navigel-name', which should be good enough in the\nmajority of cases.\n\n(fn ENTITY)" #[257 "\300!\207" [navigel-name] 3 "\n\n(fn ENTITY)"] navigel-buffer-name (entity) "Return a string representing ENTITY in the buffer's name.\n\n(fn ENTITY)" #[257 "\300!\207" [navigel-name] 3 "\n\n(fn ENTITY)"] navigel-single-buffer-name (app entity) "Return a string representing ENTITY in the buffer's name, for single-buffer APP.\n\n(fn APP ENTITY)" #[514 "\206 \206 \301\203\302\303\304!\"\202\305\302\306#\207" [navigel-app navigel format " - %s" navigel-buffer-name "" "*%s%s*"] 8 "\n\n(fn APP ENTITY)"] navigel-tablist-name (entity) "Return a string representing ENTITY in tablist columns.\n\n(fn ENTITY)" #[257 "\300!\207" [navigel-name] 3 "\n\n(fn ENTITY)"] navigel-imenu-name (entity) "Return a string representing ENTITY for `imenu'.\n\n(fn ENTITY)" #[257 "\300!\207" [navigel-name] 3 "\n\n(fn ENTITY)"] navigel-bookmark-name (entity) "Return a string representing ENTITY for `bookmark'.\n\n(fn ENTITY)" #[257 "\300!\207" [navigel-name] 3 "\n\n(fn ENTITY)"] navigel-children (entity callback) "Execute CALLBACK with the list of ENTITY's children as argument.\nThis method must be overridden for any tablist view to work.\n\n(fn ENTITY CALLBACK)" ((entities list) callback) #[514 "\300\301#\207" [navigel-async-mapcar navigel-children] 6 "Execute CALLBACK with the children of ENTITIES as argument.\n\n(fn ENTITIES CALLBACK)"] navigel-parent (_entity) "Return the parent of ENTITY if possible, nil if not.\n\n(fn ENTITY)" #[257 "\300\207" [nil] 2 "\n\n(fn ENTITY)"] navigel-equal (entity1 entity2) "Return non-nil if ENTITY1 and ENTITY2 represent the same entity.\n\n(fn ENTITY1 ENTITY2)" #[514 "\232\207" [] 4 "\n\n(fn ENTITY1 ENTITY2)"] navigel-entity-at-point "Return the entity at point or nil if none.\n\n(fn)" (&context (major-mode (derived-mode navigel-tablist-mode))) #[0 "\301\302\206`\303\"\262\206\207" [navigel-entity nil get-text-property tabulated-list-id] 4 "Return the entity at point in the context of a mode derived from MAJOR-MODE."] navigel-marked-entities (&optional _at-point-if-empty) "Return a list of entities that are selected.\nIf no entity is selected and AT-POINT-IF-EMPTY is non-nil, return\na list with just the entity at point.\n\n(fn &optional AT-POINT-IF-EMPTY)" #[256 "\300\207" [nil] 2 "\n\n(fn &optional AT-POINT-IF-EMPTY)"] (&context (major-mode (derived-mode navigel-tablist-mode)) &optional at-point-if-empty) #[256 "\300\301\302 \"\211G\303V\204\212\304@!\210\305 )\204\203\207\306\207" [mapcar car tablist-get-marked-items 1 navigel-go-to-entity tablist-get-mark-state nil] 4 "Return a list with marked entities for MAJOR-MODE derived from a tablist.\n\nAT-POINT-IF-EMPTY indicates whether to return the entity at point if none\nis marked.\n\n(fn &optional AT-POINT-IF-EMPTY)"] navigel-entity-buffer (entity) "Return a buffer name for ENTITY.\nThe default name is based on `navigel-app' and `navigel-buffer-name'.\n\n(fn ENTITY)" #[257 "\301\302\303!#\207" [navigel-app format "*%s-%s*" navigel-buffer-name] 6 "\n\n(fn ENTITY)"] navigel-entity-tablist-mode (_entity) "Enable the `major-mode' most suited to display children of ENTITY.\n\n(fn ENTITY)" #[257 "\300 \207" [navigel-tablist-mode] 2 "\n\n(fn ENTITY)"] navigel-tablist-format (_entity) "Return a vector specifying columns to display ENTITY's children.\nThe return value is set as `tabulated-list-format'.\n\n(fn ENTITY)" #[257 "\300\301\302\303E!\207" [vector "Name" 0 t] 5 "\n\n(fn ENTITY)"] navigel-tablist-format-children (_entity &optional _children) "Return a vector specifying columns to display ENTITY's CHILDREN.\nThe return value is set as `tabulated-list-format' after the list\nof children has been retrieved, unless this call returns nil.\n\n(fn ENTITY &optional CHILDREN)" #[513 "\300\207" [nil] 3 "\n\n(fn ENTITY &optional CHILDREN)"] navigel-entity-to-columns (entity) "Return the column descriptors to display ENTITY in a tabulated list.\nThe return value is a vector for `tabulated-list-entries'.\n\nThe vector should be compatible to the one defined with\n`navigel-tablist-format'.\n\n(fn ENTITY)" #[257 "\300\301!!\207" [vector navigel-tablist-name] 4 "\n\n(fn ENTITY)"] navigel-open (entity target) "Open a buffer displaying ENTITY.\nIf TARGET is non-nil and is in buffer, move point to it.\n\nBy default, list ENTITY's children in a tabulated list.\n\n(fn ENTITY TARGET)" #[514 "\300\"\207" [navigel--list-children] 5 "\n\n(fn ENTITY TARGET)"] navigel-parent-to-open (entity) "Return an indication of what to open if asked to open the parent of ENTITY.\nReturn nil if there is no parent to open.\n\nThe return value is (PARENT . ENTITY), where PARENT is the entity\nto open and ENTITY is the entity to move point to.\n\n(fn ENTITY)" #[257 "\300!B\207" [navigel-parent] 3 "\n\n(fn ENTITY)"] (entity &context (major-mode navigel-tablist-mode)) #[257 "\301!\211\205\n\301!\211\203\302\"\203\211B\207\203(\302\"\204(B\207\303\207" [navigel-entity navigel-parent navigel-equal nil] 6 "Parent or ENTITY to open in the context of MAJOR-MODE derived from tablist.\n\n(fn ENTITY)"] navigel-delete (_entity &optional _callback) "Remove ENTITY from its parent.\nIf non-nil, call CALLBACK with no parameter when done.\n\n(fn ENTITY &optional CALLBACK)" #[513 "\300\301!\207" [user-error "This operation is not supported in this context"] 4 "\n\n(fn ENTITY &optional CALLBACK)"] ((entities list) &optional callback) #[513 "\300\301#\207" [navigel-async-mapc navigel-delete] 6 "Remove each item of ENTITIES from its parent.\nIf non-nil, call CALLBACK with no parameter when done.\n\n(fn ENTITIES &optional CALLBACK)"] navigel-make-bookmark #[0 "\302!\303\304B\300B\305\306 B\301 BFD\207" [navigel-entity navigel-app navigel-bookmark-name handler navigel--bookmark-jump navigel-target navigel-entity-at-point] 6 "Return a record to bookmark the current buffer.\n\nThis function is to be used as value for\n`bookmark-make-record-function' in navigel buffers."]] 6) #@115 Check whether APP is registered as a single-buffer application. See also `navigel-single-buffer-apps'. (fn APP) (defalias 'navigel-single-buffer-app-p #[257 "\301=\206 \211>\207" [navigel-single-buffer-apps t] 3 (#$ . 12179)]) #@56 Register APP as a single buffer application. (fn APP) (defalias 'navigel-register-single-buffer-app #[257 "\301!\206\211\235\203\207\211B\211\207" [navigel-single-buffer-apps navigel-single-buffer-app-p] 3 (#$ . 12417)]) #@69 If APP is a single-buffer application, return its buffer. (fn APP) (defalias 'navigel-app-buffer #[257 "\300\301\"\207" [navigel--app-buffer t] 4 (#$ . 12654)]) #@201 Apply MAPFN to each element of LIST and pass result to CALLBACK. MAPFN is a function taking 2 arguments: the element to map and a callback to call when the mapping is done. (fn MAPFN LIST CALLBACK) (defalias 'navigel-async-mapcar #[771 "\204\211\300!\207\301G\300\"\302C\302G\300W\203D:\203D@\262\n\303\304     &\"\266T\262A\262\202\266\300\207" [nil make-vector 0 make-closure #[257 "\302\304\305#\266\303\211\242T\240\210\303\242\300G=\205 \306\307\310\301\311\312\302\"$\207" [V0 V1 V2 V3 V4 \(setf\ seq-elt\) run-at-time 0 nil seq-concatenate list] 8 "\n\n(fn ITEM-RESULT)"]] 20 (#$ . 12824)]) #@335 Same as `navigel-async-mapcar' but for side-effects only. MAPFN is a function taking 2 arguments: an element of LIST and a callback. MAPFN should call the callback with no argument when done computing. CALLBACK is a function of no argument that is called when done computing for the all elements of LIST. (fn MAPFN LIST CALLBACK) (defalias 'navigel-async-mapc #[771 "\300\301\302\"\301\303\"#\207" [navigel-async-mapcar make-closure #[514 "\300\301\302\"\"\207" [V0 make-closure #[0 "\300\301!\207" [V0 nil] 2]] 7 "\n\n(fn ITEM CALLBACK)"] #[257 "\300 \207" [V0] 2 "\n\n(fn RESULT)"]] 9 (#$ . 13467)]) #@91 Open in a new buffer the parent of ENTITY, entity at point if nil. (fn &optional ENTITY) (defalias 'navigel-open-parent #[256 "\211\205 \300!\211:\203\211\242\243\301\"\266\204\202\302\303!\262\207" [navigel-parent-to-open navigel-open message "No parent to go to"] 9 (#$ . 14084) (byte-code "\300 C\207" [navigel-entity-at-point] 1)]) #@235 Compute `navigel-entity' children and list those in the current buffer. If TARGET is non-nil and is in buffer, move point to it. If CALLBACK is non nil, execute it when the buffer has been refreshed. (fn &optional TARGET CALLBACK) (defalias 'navigel-refresh #[512 " \302ed\232\203 \303\202\304!\210\305\306\307%\"\207" [navigel-entity navigel-app navigel--message "Populating…" "Refreshing…" navigel-children make-closure #[257 "\303\306r\307\303\302\"q\210\310\302\"\211\203\311\305!\210\211\312 \210\210\313 \262\311\314!\210\315\316\"\f\317 \210\320\303!\2048\321!\210\300\203@\322\300!\210\323\324!\210\301\203K\301 \210\325\326!*\207" [V0 V1 V2 V3 navigel-app tabulated-list-format nil navigel--entity-buffer navigel-tablist-format-children make-local-variable tabulated-list-init-header navigel--save-state tabulated-list-entries mapcar #[257 "\211\300!D\207" [navigel-entity-to-columns] 4 "\n\n(fn CHILD)"] tabulated-list-print navigel-single-buffer-app-p navigel--restore-state navigel-go-to-entity run-hooks navigel-changed-hook navigel--message "Ready!"] 6 "\n\n(fn CHILDREN)"]] 12 (#$ . 14440)]) #@134 Define a method NAME with ARGS and BODY. This method will only be active if `navigel-app' equals APP. (fn APP NAME ARGS &rest BODY) (defalias 'navigel-method '(macro . #[899 "\300\301\"BBB\207" [cl-defmethod navigel--insert-context-in-args] 9 (#$ . 15588)])) (byte-code "\300\301\302\303#\300\207" [function-put navigel-method lisp-indent-function 3] 4) #@233 Open a new buffer showing ENTITY's children. If TARGET is non-nil and is in buffer, move point to it. Interactively, ENTITY is either the element at point or the user is asked for a top level ENTITY. (fn ENTITY &optional TARGET) (defalias 'navigel--list-children #[513 " \306!\307\"\310rq\210\311\300!\210\203$\203!\312!\210\n\262\313!\210\311\300!\210\311\303!\210\314\311\301!\210\203P\311\302!\210\211\315\316 \"\317\"\210\311\304!\210\320\311\305!\210\321\311\322!\210\323\311\324!\210\325\311\326!\210\327!\311\330!\210\331\332 \210\333\310\334\335\n\n%\"\210)\336!\207" [navigel-app navigel-entity navigel--state-cache tabulated-list-padding tablist-operations-function revert-buffer-function navigel-single-buffer-app-p navigel--entity-buffer nil make-local-variable navigel--cache-state navigel-entity-tablist-mode 2 rename-buffer navigel-single-buffer-name t navigel--tablist-operation-function navigel--revert-buffer imenu-prev-index-position-function navigel--imenu-prev-index-position imenu-extract-index-name-function navigel--imenu-extract-index-name tabulated-list-format navigel-tablist-format bookmark-make-record-function navigel-make-bookmark tabulated-list-init-header navigel-refresh make-closure #[0 "r\303q\210\302\203\300\203\304\305\300!!\210\301\203\306\301!\210\307\310!)\207" [V0 V1 V2 V3 navigel--restore-state navigel--cached-state navigel-go-to-entity run-hooks navigel-init-done-hook] 3] switch-to-buffer] 15 (#$ . 15955)]) #@206 Return an object representing the state of the current buffer. This should be restored with `navigel--restore-state'. The state contains the entity at point, the column of point, and the marked entities. (defalias 'navigel--save-state #[0 "\300\301 B\302iB\303\304 BE\207" [entity-at-point navigel-entity-at-point column marked-entities navigel-marked-entities] 4 (#$ . 17474)]) #@72 Restore STATE. This was saved with `navigel--save-state'. (fn STATE) (defalias 'navigel--restore-state #[257 "\211\300\236A\301\236A\302\236A\203\303!\210\202eb\210\203&\304 b\210u\210\211\205E\212\211\211\205B\211@\303!\203;\305 \210A\266\202\202,\262)\207" [entity-at-point column marked-entities navigel-go-to-entity line-beginning-position tablist-put-mark] 9 (#$ . 17860)]) #@69 Remove the entry for the current buffer in `navigel-single-buffers. (defalias 'navigel--forget-single-buffer #[0 "\302 \"\207" [navigel-single-buffers navigel-app map-delete] 3 (#$ . 18266)]) #@88 Create and return a buffer for the given APP, setting it up for single mode. (fn APP) (defalias 'navigel--single-app-buffer-create #[257 "\302\303\304\"!\236\203\241\266\202!B\211\262B\266r\211q\210\305\306\307\304\310$\210\311\301!\210)\207" [navigel-single-buffers navigel-app get-buffer-create navigel-single-buffer-name nil add-hook kill-buffer-hook navigel--forget-single-buffer t make-local-variable] 7 (#$ . 18465)]) #@183 If APP is a single-buffer application, find or create its buffer. If NO-CREATE is not nil, do not create a fresh buffer if one does not already exist. (fn APP &optional NO-CREATE) (defalias 'navigel--app-buffer #[513 "\301!\205\302\"\303!\204\204\304!\262\211\262\207" [navigel-single-buffers navigel-single-buffer-app-p alist-get buffer-live-p navigel--single-app-buffer-create] 5 (#$ . 18916)]) #@78 Return the buffer that APP should use for the given ENTITY. (fn APP ENTITY) (defalias 'navigel--entity-buffer #[514 "\300!\206 \301\302!!\207" [navigel--app-buffer get-buffer-create navigel-entity-buffer] 5 (#$ . 19335)]) #@95 Save in the local cache the state of ENTITY, as displayed in the current buffer. (fn ENTITY) (defalias 'navigel--cache-state #[257 "\211\205\301!\211\2052\204\302\300!\210\303\304\305#\306 \203'\241\210\2020B\211\262B\262\207" [navigel--state-cache navigel-entity-id make-local-variable nil assoc equal navigel--save-state] 6 (#$ . 19567)]) #@176 Return the cached state of the given ENTITY, in application APP. ENTITY and APP default to the local values of `navigel-entity' and `navigel-app'. (fn &optional ENTITY APP) (defalias 'navigel--cached-state #[512 "\206\211\205 \302\206 !\211\205\303\304!\305\306\"\"A\262\207" [navigel-entity navigel-app navigel--app-buffer assoc navigel-entity-id buffer-local-value navigel--state-cache] 9 (#$ . 19937)]) #@90 Compute `navigel-entity' children and list those in the current buffer. (fn &rest ARGS) (defalias 'navigel--revert-buffer #[128 "\300 \207" [navigel-refresh] 2 (#$ . 20364)]) #@89 Return an argument list with a &context specializer for APP within ARGS. (fn APP ARGS) (defalias 'navigel--insert-context-in-args #[514 "\300\3012[\211\203P\211@\2119\203D\211\302=\203(\303\301\304\237\302\305\nDDA#\"\210\306\307!\310\311#\312\230\203D\303\301\304\237\302\305\nDD#\"\210\211B\262A\266\202\202\304\237\302\305DD\"0\207" [nil found-special-arg &context throw append navigel-app substring-no-properties symbol-name 0 1 "&"] 12 (#$ . 20546)]) #@36 Keymap for `navigel-tablist-mode'. (defvar navigel-tablist-mode-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key "^" navigel-open-parent] 5) (#$ . 21032)) (defvar navigel-tablist-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [navigel-tablist-mode-hook variable-documentation put "Hook run after entering navigel-tablist mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp navigel-tablist-mode-map definition-name navigel-tablist-mode] 4) (defvar navigel-tablist-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [navigel-tablist-mode-abbrev-table navigel-tablist-mode-map variable-documentation put purecopy "Keymap for `navigel-tablist-mode'." boundp navigel-tablist-mode-syntax-table definition-name navigel-tablist-mode (lambda (#1=#:def-tmp-var) (defvar navigel-tablist-mode-syntax-table #1#)) make-syntax-table "Syntax table for `navigel-tablist-mode'." (lambda (#1#) (defvar navigel-tablist-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `navigel-tablist-mode'." derived-mode-parent tablist-mode] 5) #@254 Major mode for all elcouch listing modes. In addition to any hooks its parent mode `tablist-mode' might have run, this mode runs the hook `navigel-tablist-mode-hook', as the final or penultimate step during initialization. \{navigel-tablist-mode-map} (defalias 'navigel-tablist-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 )\331\332!\207" [delay-mode-hooks major-mode mode-name navigel-tablist-mode-map navigel-tablist-mode-syntax-table navigel-tablist-mode-abbrev-table make-local-variable t tablist-mode navigel-tablist-mode "navigel-tablist" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks navigel-tablist-mode-hook local-abbrev-table] 5 (#$ . 22497) nil]) (provide 'navigel)