;;; rfn-eshadow.el --- Highlight `shadowed' part of read-file-name input text
;;
-;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
+;; 2005 Free Software Foundation, Inc.
;;
;; Author: Miles Bader <miles@gnu.org>
;; Keywords: convenience minibuffer
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;
`file-name-shadow-tty-properties' is used instead."
:type file-name-shadow-properties-custom-type
:group 'minibuffer)
-;; backwards compatibility
-(make-obsolete-variable 'read-file-name-electric-shadow-properties
- 'file-name-shadow-properties "21.4")
-(defvaralias 'read-file-name-electric-shadow-properties
- 'file-name-shadow-properties)
;;;###autoload
(defcustom file-name-shadow-tty-properties
system, `file-name-shadow-properties' is used instead."
:type file-name-shadow-properties-custom-type
:group 'minibuffer)
-;; backwards compatibility
-(make-obsolete-variable 'read-file-name-electric-shadow-tty-properties
- 'file-name-shadow-tty-properties "21.4")
-(defvaralias 'read-file-name-electric-shadow-tty-properties
- 'file-name-shadow-tty-properties)
(defface file-name-shadow
- '((((background dark))
- :foreground "grey50")
- (t
- :foreground "grey70"))
+ '((t :inherit shadow))
"Face used by `file-name-shadow-mode' for the shadow."
:group 'minibuffer)
(remove-hook 'post-command-hook #'rfn-eshadow-update-overlay t)))
(setq rfn-eshadow-frobbed-minibufs nil)))
-;; backwards compatibility
-(make-obsolete 'read-file-name-electric-shadow-mode 'file-name-shadow-mode
- "21.4")
-;;;###autoload
-(defalias 'read-file-name-electric-shadow-mode 'file-name-shadow-mode)
-(make-obsolete-variable 'read-file-name-electric-shadow-mode
- 'file-name-shadow-mode "21.4")
-(defvaralias 'read-file-name-electric-shadow-mode 'file-name-shadow-mode)
-
(provide 'rfn-eshadow)
+;;; arch-tag: dcf70a52-0115-4ec2-b1e3-4f8d3541a888
;;; rfn-eshadow.el ends here