# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885537747 0
# Node ID f5a113b108ff15d5056e2944d95e55e1a4fbc969
# Parent  f900cfe382e4759f735b15630829d12dbd8b10dc
(msb--strip-dir): Use Emacs filename primitives, not regexps.

diff -r f900cfe382e4 -r f5a113b108ff lisp/msb.el
--- a/lisp/msb.el	Fri Jan 23 02:14:02 1998 +0000
+++ b/lisp/msb.el	Fri Jan 23 06:42:27 1998 +0000
@@ -456,14 +456,7 @@
 
 ;; 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.