aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/msb.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/msb.el b/lisp/msb.el
index 88c2a6408b6..ae9b7381e98 100644
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -222,7 +222,7 @@ Nil means no limit.")
222 "*The maximum number of items from different directories. 222 "*The maximum number of items from different directories.
223 223
224When the menu is of type `file by directory', this is the maximum 224When the menu is of type `file by directory', this is the maximum
225number of buffers that are clumped togehter from different 225number of buffers that are clumped together from different
226directories. 226directories.
227 227
228Set this to 1 if you want one menu per directory instead of clumping 228Set this to 1 if you want one menu per directory instead of clumping
@@ -278,13 +278,13 @@ Set this to nil or t if you don't want any sorting (faster).")
278the groups in msb-menu-cond.") 278the groups in msb-menu-cond.")
279 279
280(defvar msb-menu-cond msb--very-many-menus 280(defvar msb-menu-cond msb--very-many-menus
281 "*List of criterias for splitting the mouse buffer menu. 281 "*List of criteria for splitting the mouse buffer menu.
282The elements in the list should be of this type: 282The elements in the list should be of this type:
283 (CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLING-FN ITEM-SORT-FN). 283 (CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLING-FN ITEM-SORT-FN).
284 284
285When making the split, the buffers are tested one by one against the 285When making the split, the buffers are tested one by one against the
286CONDITION, just like a lisp cond: When hitting a true condition, the 286CONDITION, just like a lisp cond: When hitting a true condition, the
287other criterias are *not* tested and the buffer name will appear in 287other criteria are *not* tested and the buffer name will appear in
288the menu with the menu-title corresponding to the true condition. 288the menu with the menu-title corresponding to the true condition.
289 289
290If the condition returns the symbol `multi', then the buffer will be 290If the condition returns the symbol `multi', then the buffer will be
@@ -439,7 +439,7 @@ If the argument is left out or nil, then the current buffer is considered."
439 (and (> (length (buffer-name buffer)) 0) 439 (and (> (length (buffer-name buffer)) 0)
440 (eq ?\ (aref (buffer-name buffer) 0)))) 440 (eq ?\ (aref (buffer-name buffer) 0))))
441 441
442;; Strip one hierarcy level from the end of PATH. 442;; Strip one hierarchy level from the end of PATH.
443(defun msb--strip-path (path) 443(defun msb--strip-path (path)
444 (save-match-data 444 (save-match-data
445 (if (string-match "\\(.+\\)/[^/]+$" path) 445 (if (string-match "\\(.+\\)/[^/]+$" path)
@@ -840,7 +840,7 @@ variable `msb-menu-cond'."
840 (setq posX (- posX (funcall msb-horizontal-shift-function)) 840 (setq posX (- posX (funcall msb-horizontal-shift-function))
841 position (list (list posX posY) posWind)))) 841 position (list (list posX posY) posWind))))
842 ;; This `sit-for' magically makes the menu stay up if the mouse 842 ;; This `sit-for' magically makes the menu stay up if the mouse
843 ;; button is released withing 0.1 second. 843 ;; button is released within 0.1 second.
844 (sit-for 0 100) 844 (sit-for 0 100)
845 ;; Popup the menu 845 ;; Popup the menu
846 (setq choice (x-popup-menu position msb--last-buffer-menu)) 846 (setq choice (x-popup-menu position msb--last-buffer-menu))