mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 04:50:55 -07:00
Code Issues Projects Releases Wiki Activity

Require cl only when compiling.

Browse source 
(msb--home-dir): Deleted.
(msb--format-title): Use abbreviate-file-name.
(msb--choose-file-menu): Simplify string comparison.
This commit is contained in:
Dave Love 1999-07-28 16:46:30 +00:00
parent 87f0532f11
commit 492bd7587d
1 changed files with 10 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/msb.el
View file

@ -75,10 +75,11 @@
;; Richard Stallman <rms@gnu.ai.mit.edu>
;; Steve Fisk <fisk@medved.bowdoin.edu>
;; This version turned into a global minor mode by Dave Love.
;; This version turned into a global minor mode and subsequently
;; hacked on by Dave Love.
;;; Code:
(require 'cl)
(eval-when-compile (require 'cl))
;;;
;;; Some example constants to be used for `msb-menu-cond'. See that
@ -399,13 +400,6 @@ This is instead of the groups in `msb-menu-cond'."
;;; Internal variables
;;;
;; Home directory for the current user
(defconst msb--home-dir
(condition-case nil
(substitute-in-file-name "$HOME")
;; If $HOME isn't defined, use nil
(error nil)))
;; The last calculated menu.
(defvar msb--last-buffer-menu nil)
@ -565,13 +559,8 @@ If the argument is left out or nil, then the current buffer is considered."
(defun msb--format-title (top-found-p path number-of-items)
"Format a suitable title for the menu item."
(let ((new-path path))
(when (and msb--home-dir
(string-match (concat "^" msb--home-dir) path))
(setq new-path (concat "~"
(substring path (match-end 0)))))
(format (if top-found-p "%s... (%d)" "%s (%d)")
new-path number-of-items)))
(format (if top-found-p "%s... (%d)" "%s (%d)")
(abbreviate-file-name path) number-of-items))
;; Variables for debugging.
(defvar msb--choose-file-menu-list)
@ -608,7 +597,7 @@ If the argument is left out or nil, then the current buffer is considered."
(while (and tmp-rest
(<= (length buffers) max-clumped-together)
(>= (length (car item)) (length path))
(string= path (substring (car item) 0 (length path))))
(compare-strings path 0 nil (car item) 0 (length path)))
(setq found-p t)
(setq buffers (append buffers (cdr item))) ;nconc is faster than append
(setq tmp-rest (cdr tmp-rest)
@ -646,11 +635,11 @@ If the argument is left out or nil, then the current buffer is considered."
(setq last-path path))
(when (and last-path
(or (and (>= (length path) (length last-path))
(string= last-path
(substring path 0 (length last-path))))
(compare-strings last-path 0 nil
path 0 (length last-path)))
(and (< (length path) (length last-path))
(string= path
(substring last-path 0 (length path))))))
(compare-strings path 0 nil
last-path 0 (length path)))))
;; We have reached the same place in the file hierarchy as
;; the last result, so we should quit at this point and
;; take what we have as result.