| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/msb.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/msb.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst msb--few-menus '(((and (boundp 'server-buffer-clients) server-buffer-clients 'multi) 3030 "Clients (%d)") ((and msb-display-invisible-buffers-p (msb-invisible-buffer-p) 'multi) 3090 "Invisible buffers (%d)") ((eq major-mode 'dired-mode) 2010 "Dired (%d)" msb-dired-item-handler msb-sort-by-directory) ((eq major-mode 'Man-mode) 4090 "Manuals (%d)") ((eq major-mode 'w3-mode) 4020 "WWW (%d)") ((or (memq major-mode '(rmail-mode rmail-edit-mode vm-summary-mode vm-mode mail-mode)) (memq major-mode '(mh-letter-mode mh-show-mode mh-folder-mode)) (memq major-mode '(gnus-summary-mode message-mode gnus-group-mode gnus-article-mode score-mode gnus-browse-killed-mode))) 4010 "Mail (%d)") ((not buffer-file-name) 4099 "Buffers (%d)") ('no-multi 1099 "Files (%d)")))
(defconst msb--very-many-menus '(((and (boundp 'server-buffer-clients) server-buffer-clients 'multi) 1010 "Clients (%d)") ((and (boundp 'vc-mode) vc-mode 'multi) 1020 "Version Control (%d)") ((and buffer-file-name (buffer-modified-p) 'multi) 1030 "Changed files (%d)") ((and (get-buffer-process (current-buffer)) 'multi) 1040 "Processes (%d)") ((and msb-display-invisible-buffers-p (msb-invisible-buffer-p) 'multi) 1090 "Invisible buffers (%d)") ((eq major-mode 'dired-mode) 2010 "Dired (%d)" msb-dired-item-handler msb-sort-by-directory) ((eq major-mode 'Man-mode) 5030 "Manuals (%d)") ((eq major-mode 'w3-mode) 5020 "WWW (%d)") ((or (memq major-mode '(rmail-mode rmail-edit-mode vm-summary-mode vm-mode mail-mode)) (memq major-mode '(mh-letter-mode mh-show-mode mh-folder-mode)) (memq major-mode '(gnus-summary-mode message-mode gnus-group-mode gnus-article-mode score-mode gnus-browse-killed-mode))) 5010 "Mail (%d)") ((and (not buffer-file-name) 'no-multi) 5099 "Other non-file buffers (%d)") ((and (string-match "/\\.[^/]*$" buffer-file-name) 'multi) 3090 "Hidden Files (%d)") ((memq major-mode '(c-mode c++-mode)) 3010 "C/C++ Files (%d)") ((eq major-mode 'emacs-lisp-mode) 3020 "Elisp Files (%d)") ((eq major-mode 'latex-mode) 3030 "LaTeX Files (%d)") ('no-multi 3099 "Other files (%d)")))
(custom-declare-group 'msb nil "Customizable buffer-selection with multiple menus." :prefix "msb-" :group 'mouse)
#@44 Set the value of custom variables for msb.
(defalias 'msb-custom-set #[(symbol value) " L\210\303\304!\205 \n\205 \305\306!\207" [symbol value msb-mode featurep msb msb-menu-bar-update-buffers t] 2 (#$ . 2726)])
(byte-code "\302\303\300\304\305\306\307\310\311\312\257\307\310\313\312 \257\314BBB\315\316\317\320& \210\302\321\322\323\305\324\315\316\317\320\325\326& \210\302\327\330\331\305\332\315\316\317\320& \207" [msb--very-many-menus msb--few-menus custom-declare-variable msb-menu-cond "List of criteria for splitting the mouse buffer menu.\nThe elements in the list should be of this type:\n (CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLING-FN ITEM-SORT-FN).\n\nWhen making the split, the buffers are tested one by one against the\nCONDITION, just like a Lisp cond: When hitting a true condition, the\nother criteria are *not* tested and the buffer name will appear in the\nmenu with the menu-title corresponding to the true condition.\n\nIf the condition returns the symbol `multi', then the buffer will be\nadded to this menu *and* tested for other menus too. If it returns\n`no-multi', then the buffer will only be added if it hasn't been added\nto any other menu.\n\nDuring this test, the buffer in question is the current buffer, and\nthe test is surrounded by calls to `save-excursion' and\n`save-match-data'.\n\nThe categories are sorted by MENU-SORT-KEY. Smaller keys are on top.\nA value of nil means don't display this menu.\n\nMENU-TITLE is really a format. If you add %d in it, the %d is\nreplaced with the number of items in that menu.\n\nITEM-HANDLING-FN is optional. If it is supplied and is a function,\nthen it is used for displaying the items in that particular buffer\nmenu, otherwise the function pointed out by\n`msb-item-handling-function' is used.\n\nITEM-SORT-FN is also optional.\nIf it is not supplied, the function pointed out by\n`msb-item-sort-function' is used.\nIf it is nil, then no sort takes place and the buffers are presented\nin least-recently-used order.\nIf it is t, then no sort takes place and the buffers are presented in\nmost-recently-used order.\nIf it is supplied and non-nil and not t than it is used for sorting\nthe items in that particular buffer menu.\n\nNote1: There should always be a `catch-all' as last element, in this\nlist. That is an element like (t TITLE ITEM-HANDLING-FUNCTION).\nNote2: A buffer menu appears only if it has at least one buffer in it.\nNote3: If you have a CONDITION that can't be evaluated you will get an\nerror every time you do \\[msb]." :type choice const :tag "long" :value "short" ((sexp :tag "user")) :set msb-custom-set :group msb msb-modes-key 4000 "The sort key for files sorted by mode." integer :version "20.3" msb-separator-diff 100 "Non-nil means use separators.\nThe separators will appear between all menus that have a sorting key\nthat differs by this value or more." (choice integer (const nil))] 12)
#@45 The sort key for files sorted by directory.
(defvar msb-files-by-directory-sort-key 0 (#$ . 5651))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\306\307\310\311& \210\300\316\317\320\304\315\306\307\310\311& \210\300\321\302\322\304\315\306\307\310\311& \210\300\323\324\325\304\326\306\307\310\311& \207" [custom-declare-variable msb-max-menu-items 15 "The maximum number of items in a menu.\nIf this variable is set to 15 for instance, then the submenu will be\nsplit up in minor parts, 15 items each. A value of nil means no limit." :type (choice integer (const nil)) :set msb-custom-set :group msb msb-max-file-menu-items 10 "The maximum number of items from different directories.\n\nWhen the menu is of type `file by directory', this is the maximum\nnumber of buffers that are clumped together from different\ndirectories.\n\nSet this to 1 if you want one menu per directory instead of clumping\nthem together.\n\nIf the value is not a number, then the value 10 is used." integer msb-most-recently-used-sort-key -1010 "Where should the menu with the most recently used buffers be placed?" msb-display-most-recently-used "How many buffers should be in the most-recently-used menu.\nNo buffers at all if less than 1 or nil (or any non-number)." msb-most-recently-used-title "Most recently used (%d)" "The title for the most-recently-used menu." string] 10)
#@74 Function that specifies how many pixels to shift the top menu leftwards.
(defvar msb-horizontal-shift-function #[nil "\300\207" [0] 1] (#$ . 7056))
#@142 Show invisible buffers or not.
Non-nil means that the buffer menu should include buffers that have
names that starts with a space character.
(custom-declare-variable 'msb-display-invisible-buffers-p nil '(#$ . 7211) :type 'boolean :set 'msb-custom-set :group 'msb)
#@500 The appearance of a buffer menu.
The default function to call for handling the appearance of a menu
item. It should take two arguments, BUFFER and MAX-BUFFER-NAME-LENGTH,
where the latter is the max length of all buffer names.
The function should return the string to use in the menu.
When the function is called, BUFFER is the current buffer. This
function is called for items in the variable `msb-menu-cond' that have
nil as ITEM-HANDLING-FUNCTION. See `msb-menu-cond' for more
information.
(defvar msb-item-handling-function 'msb-item-handler (#$ . 7483))
(byte-code "\302\303\304\305\306\307\310\311\312\313& \210\302\314\315\316\306\317\310\311\312\313& \210\320\321\322\315#\210\323\315\211\203F @\321N\203? \322N\204? \324\322\321N#\210 A\211\204( *\325\321\322\326#\210\302\322\315\327\306\330\310\311\312\313& \207" [prop --dolist-tail-- custom-declare-variable msb-item-sort-function 'msb-sort-by-name "The order of items in a buffer menu.\n\nThe default function to call for handling the order of items in a menu\nitem. This function is called like a sort function. The items look\nlike (ITEM-NAME . BUFFER).\n\nITEM-NAME is the name of the item that will appear in the menu.\nBUFFER is the buffer, this is not necessarily the current buffer.\n\nSet this to nil or t if you don't want any sorting (faster)." :type (choice (const msb-sort-by-name) (const :tag "Newest first" t) (const :tag "Oldest first" nil)) :set msb-custom-set :group msb msb-files-by-directory nil "Non-nil means that files should be sorted by directory.\nThis is instead of the groups in `msb-menu-cond'." boolean defvaralias msb-after-load-hooks msb-after-load-hook (saved-value saved-variable-comment) put make-obsolete-variable "24.1" "Hook run after the msb package has been loaded." hook] 11)
(defvar msb--last-buffer-menu nil)
(defvar msb--error nil)
#@265 Create one string item, concerning BUFFER, for the buffer menu.
The item looks like:
*% <buffer-name>
The `*' appears only if the buffer is marked as modified.
The `%' appears only if the buffer is read-only.
Optional second argument MAXBUF is completely ignored.
(defalias 'msb-item-handler #[(buffer &optional maxbuf) "\304 \305 \203 \306\202\f \307\203 \310\202 \307\311\312\n $+\207" [buffer-read-only read-only modified name buffer-name buffer-modified-p "*" " " "%" format "%s%s %s"] 5 (#$ . 9346)])
(defalias 'msb--dired-directory #[nil ";\203 \301\302!!\207:\203 \301\302@!!\207\303\304\305 \"\207" [dired-directory abbreviate-file-name expand-file-name error "Unknown type of `dired-directory' in buffer %s" buffer-name] 3])
#@273 Create one string item, concerning a dired BUFFER, for the buffer menu.
The item looks like:
*% <buffer-name>
The `*' appears only if the buffer is marked as modified.
The `%' appears only if the buffer is read-only.
Optional second argument MAXBUF is completely ignored.
(defalias 'msb-dired-item-handler #[(buffer &optional maxbuf) "\304 \305 \203 \306\202\f \307\203 \310\202 \307\311\312\n $+\207" [buffer-read-only read-only modified name msb--dired-directory buffer-modified-p "*" " " "%" format "%s%s %s"] 5 (#$ . 10101)])
#@257 Create one string item for the buffer menu.
The item looks like:
<buffer-name> *%# <file-name>
The `*' appears only if the buffer is marked as modified.
The `%' appears only if the buffer is read-only.
The `#' appears only version control file (SCCS/RCS).
(defalias 'msb-alon-item-handler #[(buffer maxbuf) "\305\211\306\"\307 !\310 \203 \311\202 \312\n\203 \313\202 \312\314\303!\203) \203) \315\202* \312\f\206/ \316&\207" [maxbuf buffer buffer-read-only vc-mode buffer-file-name format "%%%ds %%s%%s%%s %%s" buffer-name buffer-modified-p "*" " " "%" boundp "#" ""] 7 (#$ . 10646)])
#@92 Sort the items ITEM1 and ITEM2 by their `buffer-name'.
An item looks like (NAME . BUFFER).
(defalias 'msb-sort-by-name #[(item1 item2) "\302A!\302 A!\231\207" [item1 item2 buffer-name] 3 (#$ . 11246)])
#@103 Sort the items ITEM1 and ITEM2 by directory name. Made for dired.
An item look like (NAME . BUFFER).
(defalias 'msb-sort-by-directory #[(item1 item2) "rAq\210\302 )r Aq\210\302 )\231\207" [item1 item2 msb--dired-directory] 2 (#$ . 11456)])
#@278 Pop up several menus of buffers for selection with the mouse.
This command switches buffers in the window that you clicked on, and
selects that window.
See the function `mouse-select-buffer' and the variable
`msb-menu-cond' for more information about how the menus are split.
(defalias 'msb #[(event) "\306 \307!\211@)\310 \311 !\204 \312 !\210\313\314\315\"?\316!\211 \203, \317
!\210\2020 \312\f!\210)\n\203A \320\321!>\203A \322 \210+\310\207" [event position early-release window old-window buffer selected-window event-start nil framep select-window sit-for 0.1 t mouse-select-buffer switch-to-buffer down event-modifiers discard-input last-input-event] 4 (#$ . 11705) "e"])
#@130 Return t if optional BUFFER is an "invisible" buffer.
If the argument is left out or nil, then the current buffer is considered.
(defalias 'msb-invisible-buffer-p #[(&optional buffer) "\301!G\302V\205 \301!\302H\303=\207" [buffer buffer-name 0 32] 2 (#$ . 12402)])
#@48 Strip one hierarchy level from the end of DIR.
(defalias 'msb--strip-dir #[(dir) "\301\302!!\207" [dir file-name-directory directory-file-name] 3 (#$ . 12676)])
(defalias 'msb--init-file-alist #[(list) "\304\305\306\307\310\"\"\311\"\312\211\305\306\307\313 \"\" \nBC\244+\207" [list buffer-alist buffers dir sort apply nconc mapcar #[(buffer) "\302\303!!\211\205 \304 !BC)\207" [buffer file-name expand-file-name buffer-file-name msb--strip-dir] 4] #[(item1 item2) "@ @\231\207" [item1 item2] 2] nil #[(item) " @\232\203 A\nB\304\207\205 \nB @ AC \205# C)\207" [dir item buffers result nil] 2]] 6])
#@44 Format a suitable title for the menu item.
(defalias 'msb--format-title #[(top-found-p dir number-of-items) "\303\203 \304\202\n \305\306 !\n#\207" [top-found-p dir number-of-items format "%s... (%d)" "%s (%d)" abbreviate-file-name] 4 (#$ . 13303)])
#@70 Choose file-menu with respect to directory for every buffer in LIST.
(defalias 'msb--choose-file-menu #[(list) "\306!\307\n\247\203 \n\202 \310\307\211\211\211\211\211\211 \211 @A@A\311!\203Y\307\307 @\203\223 \fGX\203\223 @G
GY\203\223 \312
\313\307@\313
G&\314=\203\223 \314\315\fA\"A\211@\202S \fGV\203\314 @\316@AG#ABB\307@A@A\202U\203\335 \314
\fB
\317
!A
\232\203\360
\203U
GGY\203\312\313\307
\313G&\314=\204,
GGW\203U\312
\313\307\313
G&\314=\203U\316@AG#ABB\307@A@A+\202? \203r\316@AG#ABB\307\237.\n\207" [list msb--choose-file-menu-arg-list msb-max-file-menu-items old-dir buffers dir msb--init-file-alist nil 10 copy-sequence compare-strings 0 t append msb--format-title msb--strip-dir rest first last-dir top-found-p max-clumped-together final-list buffer-alist msb--choose-file-menu-list item tmp-rest found-p completion-ignore-case] 11 (#$ . 13561)])
#@221 Create a vector from an element MENU-COND-ELT of `msb-menu-cond'.
This takes the form:
[BUFFER-LIST-VARIABLE CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLER SORTER]
See `msb-menu-cond' for a description of its elements.
(defalias 'msb--create-function-info #[(menu-cond-elt) "\306\307! G\310V\205 \310 8\211\203 \311\n!\203 \n\202 G\312V\203, \312 8\202-
\311!\204B \203B \313=\203G \202H
G\310W\203U \314\315!\210 G\310V\203h \311\n!\204h \316\317\nC\"\210 G\312V\203\211 \203\211 \311!\204\211 \313=\204\211 \316\317C\"\210\320L\210\321 @ A@\322 8\f&-\207" [list-symbol menu-cond-elt tmp-ih msb-item-handling-function item-handler msb-item-sort-function make-symbol "-msb-buffer-list" 3 fboundp 4 t error "Wrong format of msb-menu-cond" signal invalid-function nil vector 2 tmp-s sorter] 8 (#$ . 14630)])
(defalias 'msb--collect #[(function-info-vector) "\306\211\211 \307 \306\211
T\211\fGW\203M \f
H\310\311H!\211\203C \n\312=\2034 \204C \n\313=\203< \314B\n\203 \n\313=\204 \237,\211\204^ \n\204^ \315\316!\210+\207" [function-info-list multi-flag result function-info-vector #1=#:--cl-vec-- #2=#:--cl-idx-- nil -1 eval 1 no-multi multi t error "No catch-all in msb-menu-cond!" fi #3=#:--cl-var--] 4])
(put 'msb--collect 'byte-optimizer 'byte-compile-inline-expand)
#@164 Add BUFFER to the menu depicted by FUNCTION-INFO.
All side-effects. Adds an element of form (BUFFER-TITLE . BUFFER)
to the buffer-list variable in FUNCTION-INFO.
(defalias 'msb--add-to-menu #[(buffer function-info max-buffer-name-length) "\304H\211\305H\n \"\nB\306 !BL)\207" [function-info list-symbol buffer max-buffer-name-length 0 4 eval] 5 (#$ . 15973)])
#@41 Select the appropriate menu for BUFFER.
(defalias 'msb--choose-menu #[(buffer function-info-vector max-buffer-name-length) "?\205 \302 !?\205 \303\304\305\217\207" [msb-display-invisible-buffers-p buffer msb-invisible-buffer-p nil (byte-code "rq\210 \306\211\211 \307 \306\211 T\211
GW\203W
H\310\311H!\211\203M \f\312=\203> \204M \f\313=\203F \314B\f\203 \f\313=\204 \237,\211\204h \f\204h \315\316!\210\n,\306 \211 \205\212 @\317#\210A\211\204s \306+\207" [buffer function-info-vector function-info-list multi-flag result #1=#:--cl-vec-- nil -1 eval 1 no-multi multi t error "No catch-all in msb-menu-cond!" msb--add-to-menu #2=#:--cl-idx-- fi #3=#:--cl-var-- info --dolist-tail-- max-buffer-name-length] 5) ((error (byte-code "?\205 \302\303\304 !\"\305\306\"\207" [msb--error buffer format "In msb-menu-cond, error for buffer `%s'." buffer-name error "%s"] 4)))] 3 (#$ . 16343)])
(put 'msb--choose-menu 'byte-optimizer 'byte-compile-inline-expand)
#@75 Return (SORT-KEY TITLE . BUFFER-LIST) or nil if the buffer-list is empty.
(defalias 'msb--create-sort-item #[(function-info) "\304\305H!\211\2058 \306H\307H\n\2057 \n\310\311H G\" \204& \2025 \312=\2031 \237\2025 \313 \"BB*)\207" [function-info buffer-list sort-key sorter eval 0 5 2 format 3 t sort] 6 (#$ . 17358)])
#@452 Return ALIST as a sorted, aggregated alist.
In the result all items with the same car element (according to
SAME-PREDICATE) are aggregated together. The alist is first sorted by
SORT-PREDICATE.
Example:
(msb--aggregate-alist
'((a . a1) (a . a2) (b . b1) (c . c3) (a . a4) (a . a3) (b . b3) (b . b2))
(function string=)
(lambda (item1 item2)
(string< (symbol-name item1) (symbol-name item2))))
results in
((a a1 a2 a4 a3) (b b1 b3 b2) (c c3))
(defalias 'msb--aggregate-alist #[(alist same-predicate sort-predicate) "??\205! \306\211\211\307\306 \310\311\312\313\314\315\"\"\"
\237BC\244-\207" [alist old-car first-time-p tmp-same tmp-old-car same nil t apply nconc mapcar #[(item) "\203 A\nB\306 @\306\207\f @ \"\203 A\nB\306\207\n AC @
\237BC\207" [first-time-p item same old-car same-predicate tmp-same nil tmp-old-car] 3] sort #[(item1 item2) " @\n@\"\207" [sort-predicate item1 item2] 3]] 7 (#$ . 17694)])
(defalias 'msb--mode-menu-cond #[nil "\306\307\310\311\312 A\311\211 \2037 \f@r q\210\313 \204/
\n\236\204/
\314\311\211 $B\nB)\fA\211\204 *\n)\315\"\")\207" [msb-modes-key key mode-list buffer --dolist-tail-- major-mode mapcar #[(item) "T\302\303\304 @DE A\305PE\207" [key item eq major-mode quote " (%d)"] 4] sort nil buffer-list msb-invisible-buffer-p format-mode-line #[(item1 item2) "A A\231\207" [item1 item2] 2] mode-name] 10])
#@97 Return a list for the most recently used buffers.
It takes the form ((TITLE . BUFFER-LIST)...).
(defalias 'msb--most-recently-used-menu #[(max-buffer-name-length) "\247\205q \306V\205q \307 A\306 \310\211 :\203R @r\fq\210\311 ?\205. \312=?)\203E r\fq\210\f\"\f)B
B\nT\nY\204R A\211\202
\237, ;\203g \313G\"\202m \314\315C\"*B\207" [msb-display-most-recently-used buffers n #1=#:--cl-var-- buffer #2=#:--cl-var-- 0 buffer-list nil msb-invisible-buffer-p dired-mode format signal wrong-type-argument major-mode msb-item-handling-function max-buffer-name-length most-recently-used msb-most-recently-used-title] 4 (#$ . 19094)])
(defalias 'msb--create-buffer-menu-2 #[nil "\306\307\211\310 \307\211 \203) \f@
\204 \311 \204\" \n\312 !G]\fA\211\204 *\313\314\315\316\317%\320 \"\"\"\310 \307\211 \203t \f@&\203U \321 !\203U B\202m \n
?\205c \311 !?\205k \307\322\323\217+\210\fA\211\204@ * \203\200 \315\324\325 !\"\307 '\326\n! ( )\327 *\307\211 + ,\307 -*T\211*)GW\203\300 )*H+\330+!\211,\203\230 ,-B-\202\230 -\237-\244 .\315\331\332\333(A\203\334 /(B.B\202\336 .\334\"!\"'\317\335\336'!0\205\363 \337\340DC\341&\203\375 \342\202\376 \343\344BBC$.\207" [function-info-vector file-buffers max-buffer-name-length buffer --dolist-tail-- msb-display-invisible-buffers-p 0 nil buffer-list msb-invisible-buffer-p buffer-name apply vector mapcar msb--create-function-info append msb--mode-menu-cond buffer-file-name (byte-code "rq\210 \306\211\211 \307 \306\211 T\211
GW\203W
H\310\311H!\211\203M \f\312=\203> \204M \f\313=\203F \314B\f\203 \f\313=\204 \237,\211\204h \f\204h \315\316!\210\n,\306 \211 \205\212 @\317#\210A\211\204s \306+\207" [buffer function-info-vector function-info-list multi-flag result #1=#:--cl-vec-- nil -1 eval 1 no-multi multi t error "No catch-all in msb-menu-cond!" msb--add-to-menu #2=#:--cl-idx-- fi #3=#:--cl-var-- info --dolist-tail-- max-buffer-name-length] 5) ((error (byte-code "?\205 \302\303\304 !\"\305\306\"\207" [msb--error buffer format "In msb-menu-cond, error for buffer `%s'." buffer-name error "%s"] 4))) #[(buffer-list) " @\302\303\304 A\"\305\"BB\207" [msb-files-by-directory-sort-key buffer-list sort mapcar #[(buffer) "rq\210 \n\")B\207" [buffer msb-item-handling-function max-buffer-name-length] 3] #[(item1 item2) "@ @\231\207" [item1 item2] 2]] 6] msb--choose-file-menu msb--most-recently-used-menu -1 msb--create-sort-item cdr msb--add-separators sort #[(elt1 elt2) "@ @W\207" [elt1 elt2] 2] (keymap "Select Buffer") msb--make-keymap-menu separator "--" toggle "*Files by type*" "*Files by directory*" msb--toggle-menu-type msb-menu-cond msb-files-by-directory menu most-recently-used #4=#:--cl-vec-- #5=#:--cl-idx-- elt value #6=#:--cl-var-- others msb-most-recently-used-sort-key msb-separator-diff] 8])
(defalias 'msb--create-buffer-menu #[nil "\301 \302\216\212\303 +\207" [save-match-data-internal match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) msb--create-buffer-menu-2] 1])
#@63 Multi-purpose function for selecting a buffer with the mouse.
(defalias 'msb--toggle-menu-type #[nil "?\301\302!\207" [msb-files-by-directory msb-menu-bar-update-buffers t] 2 (#$ . 22218) nil])
#@215 Pop up several menus of buffers, for selection with the mouse.
Returns the selected buffer or nil if no buffer is selected.
The way the buffers are split is conveniently handled with the
variable `msb-menu-cond'.
(defalias 'mouse-select-buffer #[(event) "\204 \203 \306\307!\203 \307 \203 \310\311 \n\310 \306\312!\203U \306\313!\203U \314\n! \315\f8)@\314\n! \315\f8)A\314\n!\211 @) \211 Z\211D
D+\316\f \"\211@\317=\203j \320 \210\321\n!\202\254 @\247\203\203 A\204\203 @ \236AA\321\n!)\202\254 @\247\203\220 A\211\202\204 @;\203\240 A\204\240 @\202\254 \204\250 \202\254 \322\323 \"*\207" [msb--error msb--last-buffer-menu event choice position posWind fboundp frame-or-buffer-changed-p nil msb--create-buffer-menu posn-x-y posn-window event-start 2 x-popup-menu toggle msb--toggle-menu-type mouse-select-buffer error "Unknown form for buffer: %s" posY posX msb-horizontal-shift-function] 5 (#$ . 22421)])
(defalias 'msb--add-separators #[(sorted-list) "\203 \247\204 \207\303\304\305\306\307 \"\")\207" [msb-separator-diff sorted-list last-key nil apply nconc mapcar #[(item) "\203 \203 \n@ ZV\203 \n@\211\303B\nD\207\n@\nC\207" [msb-separator-diff last-key item separator] 3]] 5])
(defalias 'msb--split-menus-2 #[(list mcount result) "G V\203@ \306\307\211\211 W\203\" \211A@\nB\fT\211\202 \n\237\211@@\310P
\311 F\n\244 B +\312
T #\207 \204G \207\307@@\310P
\311 F\244 B ) \237\207" [list msb-max-menu-items tmp-list sub-name count mcount 0 nil "..." keymap msb--split-menus-2 result] 5])
(defalias 'msb--split-menus #[(list) "\250\203 \302V\203 \303 \302\304#\207 \207" [msb-max-menu-items list 0 msb--split-menus-2 nil] 4])
(defalias 'msb--make-keymap-menu #[(raw-menu) "\303\304B\305\306\307\n\"*\207" [mcount end raw-menu (nil) menu-bar-select-buffer 0 mapcar #[(sub-menu) "\303=\203\n \303\304D\207\305\306A\"\nT\211@\307@F\310 !\244)\207" [sub-menu buffers mcount separator "--" mapcar #[(item) "\302A!@ BB\207" [item end buffer-name] 3] keymap msb--split-menus] 4]] 3])
#@52 A re-written version of `menu-bar-update-buffers'.
(defalias 'msb-menu-bar-update-buffers #[(&optional arg) "\306\307 \310\"\205y \311\312!\203 \312 \204 \205y \313 \314\211\315 \211A A\203] G \316\317
\" \250\203M \320V\203M
V\203M \233\314\241\210\321\322\323\257\324\325 \"\244*\n\203v \203v \326 \205o \327E\nA\244\202w \n\241+\207" [arg frames-menu buffers-menu frames msb--last-buffer-menu frame-length lookup-key current-global-map [menu-bar buffer] fboundp frame-or-buffer-changed-p frame-list nil msb--create-buffer-menu format "Frames (%d)" 1 frame (nil) keymap mapcar #[(frame) "\301\302\"\301\302\"\303\211BE\304\303\305\306DF\244\207" [frame frame-parameter name nil lambda (interactive) menu-bar-select-frame] 6] "Buffers and Frames" (separator "--") f-title msb-max-menu-items global-buffers-menu-map msb-separator-diff] 6 (#$ . 24498)])
(defvar msb-mode-map (byte-code "\301\302!\303\304\305#\210)\207" [map make-sparse-keymap "Msb" define-key [remap mouse-buffer-menu] msb] 4))
#@245 Non-nil if Msb mode is enabled.
See the command `msb-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `msb-mode'.
(custom-declare-variable 'msb-mode nil '(#$ . 25537) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'msb :type 'boolean)
#@292 Toggle Msb mode.
With a prefix argument ARG, enable Msb mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode overrides the binding(s) of `mouse-buffer-menu' to provide a
different buffer menu using the function `msb'.
(defalias 'msb-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203) \307\310\311\"\210\312\310\313\"\210\311\314!\210\2027 \312\310\311\"\210\307\310\313\"\210\313\314!\210\315\316\n\203A \317\202B \320\"\210\321\322!\203g \323\302!\210\303 \203Z \303 \232\203g \324\325\n\203d \326\202e \327\"\210)\330 \210\n\207" [#1=#:last-message arg msb-mode current-message toggle prefix-numeric-value 0 add-hook menu-bar-update-hook msb-menu-bar-update-buffers remove-hook menu-bar-update-buffers t run-hooks msb-mode-hook msb-mode-on-hook msb-mode-off-hook called-interactively-p any customize-mark-as-set message "Msb mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 25936) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [msb-mode-map add-minor-mode msb-mode nil boundp] 6)
#@25 Unload the Msb library.
(defalias 'msb-unload-function #[nil "\300\301!\210\302\207" [msb-mode -1 nil] 2 (#$ . 27079)])
(byte-code "\300\301!\210\302\303!\207" [provide msb run-hooks msb-after-load-hook] 2)