(mac-charset-info-alist, mac-services-selection, mac-system-script-code):

[gnu-emacs] / lisp / rfn-eshadow.el

diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el
index 9951929513377a3d531f87b6d4115866c998e157..9141b5220e83291f0b7782203007ca8c50680814 100644 (file)
--- a/lisp/rfn-eshadow.el
+++ b/lisp/rfn-eshadow.el
@@ -1,6 +1,7 @@
 ;;; 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
@@ -19,8 +20,8 @@
 
 ;; 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:
 ;;
@@ -101,11 +102,6 @@ If emacs is not running under a window system,
 `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
@@ -116,17 +112,9 @@ is not running under a window-system; if emacs is running under a window
 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)
 
@@ -207,10 +195,10 @@ been set up by `rfn-eshadow-setup-minibuffer'."
 ;;; functions be already defined.  [This is arguably a bug in d-m-m]
 ;;;###autoload
 (define-minor-mode file-name-shadow-mode
-  "Toggle Read-File-Name Electric Shadow mode.
-When active, any part of the filename being read in the minibuffer
-that would be ignored because the result is passed through
-`substitute-in-file-name' is given the properties in
+  "Toggle File-Name Shadow mode.
+When active, any part of a filename being read in the minibuffer
+that would be ignored (because the result is passed through
+`substitute-in-file-name') is given the properties in
 `file-name-shadow-properties', which can be used to make
 that portion dim, invisible, or otherwise less visually noticeable.
 
@@ -229,15 +217,8 @@ Returns non-nil if the new state is enabled."
        (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")
-(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