diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-01-23 06:42:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-01-23 06:42:27 +0000 |
| commit | 862aacbf3457ebb312614dbb17f188d37cbf3959 (patch) | |
| tree | 5dfcfe2b6f477b2b229bc8286ad63ac100ef6873 /lisp/msb.el | |
| parent | 03c9127e39529442c8ef8b75dc4ece02417cc98e (diff) | |
| download | emacs-862aacbf3457ebb312614dbb17f188d37cbf3959.tar.gz | |
(msb--strip-dir): Use Emacs filename primitives, not regexps.
Diffstat (limited to 'lisp/msb.el')
| -rw-r--r-- | lisp/msb.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/msb.el b/lisp/msb.el index 03361c16166..3db53b86ba1 100644 --- a/lisp/msb.el +++ b/lisp/msb.el @@ -456,14 +456,7 @@ If the argument is left out or nil, then the current buffer is considered." ;; Strip one hierarchy level from the end of DIR. (defun msb--strip-dir (dir) - (save-match-data - (cond - ((string-match "^\\([^/]*/.+/\\)[^/]+$" dir) - (substring dir (match-beginning 1) (match-end 1))) - ((string-match "^\\([^/]*/\\)" dir) - (substring dir (match-beginning 1) (match-end 1))) - (t - (error "msb: Directory `%s' has an unrecognized format" dir))))) + (file-name-directory (directory-file-name dir))) ;; Create an alist with all buffers from LIST that lies under the same ;; directory will be in the same item as the directory string. |