[bongo-patches] Add Emacs 21 compatibility wrapper `bongo-read-directory-name'

[Daniel Brockman]

Wed Dec 27 12:41:57 CET 2006  Daniel Brockman <address@hidden>

 * Add Emacs 21 compatibility wrapper
   `bongo-read-directory-name'.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2006-12-29 11:19:20.000000000 +0100
+++ new-bongo/bongo.el  2006-12-29 11:19:20.000000000 +0100
@@ -87,6 +87,8 @@
     'face-foreground)
   (defalias 'bongo-face-background
     'face-background)
+  (defalias 'bongo-read-directory-name
+    'read-directory-name)
   (defalias 'bongo-run-mode-hooks
     'run-mode-hooks)
   (eval-and-compile
@@ -5876,7 +5878,7 @@
 
 Do not examine subdirectories of DIRECTORY-NAME."
   (interactive (list (expand-file-name
-                      (read-directory-name
+                      (bongo-read-directory-name
                        "Insert directory: " default-directory nil t
                        (when (eq major-mode 'dired-mode)
                          (when (file-directory-p (dired-get-filename))
@@ -5938,7 +5940,7 @@
 
 This function descends each subdirectory of DIRECTORY-NAME recursively."
   (interactive (list (expand-file-name
-                      (read-directory-name
+                      (bongo-read-directory-name
                        "Insert directory tree: "
                        default-directory nil t
                        (when (eq major-mode 'dired-mode)
diff -rN -u old-bongo/bongo-emacs21.el new-bongo/bongo-emacs21.el
--- old-bongo/bongo-emacs21.el  2006-12-29 11:19:20.000000000 +0100
+++ new-bongo/bongo-emacs21.el  2006-12-29 11:19:20.000000000 +0100
@@ -44,6 +44,9 @@
 INHERIT is ignored, since it is not supported by Emacs 21."
   (face-background face frame))
 
+(defalias 'bongo-read-directory-name
+  'read-file-name)
+
 ;;; The following function was copied from `subr.el'
 ;;; and modified to work with Emacs 21.
 

-- 
Daniel Brockman <address@hidden>