[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-patches] Add Emacs 21 compatibility wrapper `bongo-read-directory
From: |
Daniel Brockman |
Subject: |
[bongo-patches] Add Emacs 21 compatibility wrapper `bongo-read-directory-name' |
Date: |
Fri, 29 Dec 2006 11:19:28 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
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>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-patches] Add Emacs 21 compatibility wrapper `bongo-read-directory-name',
Daniel Brockman <=