diff options
| author | Luc Teirlinck | 2005-11-16 05:02:40 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-11-16 05:02:40 +0000 |
| commit | 496f36c064a146b0d43a6ffc6ff1c7425cb5254b (patch) | |
| tree | 4a2664de51c201d1c56ead8c471e2dab420c12c4 | |
| parent | 9fc0053d93f2f5bf8ea70c77b39558d7165ae9ad (diff) | |
| download | emacs-496f36c064a146b0d43a6ffc6ff1c7425cb5254b.tar.gz emacs-496f36c064a146b0d43a6ffc6ff1c7425cb5254b.zip | |
(file-name-shadow-properties, file-name-shadow-tty-properties)
(file-name-shadow, file-name-shadow-mode): Add :version keyword.
| -rw-r--r-- | lisp/rfn-eshadow.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el index 3b0480c9595..64dd588ba04 100644 --- a/lisp/rfn-eshadow.el +++ b/lisp/rfn-eshadow.el | |||
| @@ -101,7 +101,8 @@ Only used when `file-name-shadow-mode' is active. | |||
| 101 | If Emacs is not running under a window system, | 101 | If Emacs is not running under a window system, |
| 102 | `file-name-shadow-tty-properties' is used instead." | 102 | `file-name-shadow-tty-properties' is used instead." |
| 103 | :type file-name-shadow-properties-custom-type | 103 | :type file-name-shadow-properties-custom-type |
| 104 | :group 'minibuffer) | 104 | :group 'minibuffer |
| 105 | :version "22.1") | ||
| 105 | 106 | ||
| 106 | ;;;###autoload | 107 | ;;;###autoload |
| 107 | (defcustom file-name-shadow-tty-properties | 108 | (defcustom file-name-shadow-tty-properties |
| @@ -111,12 +112,14 @@ Only used when `file-name-shadow-mode' is active and emacs | |||
| 111 | is not running under a window-system; if emacs is running under a window | 112 | is not running under a window-system; if emacs is running under a window |
| 112 | system, `file-name-shadow-properties' is used instead." | 113 | system, `file-name-shadow-properties' is used instead." |
| 113 | :type file-name-shadow-properties-custom-type | 114 | :type file-name-shadow-properties-custom-type |
| 114 | :group 'minibuffer) | 115 | :group 'minibuffer |
| 116 | :version "22.1") | ||
| 115 | 117 | ||
| 116 | (defface file-name-shadow | 118 | (defface file-name-shadow |
| 117 | '((t :inherit shadow)) | 119 | '((t :inherit shadow)) |
| 118 | "Face used by `file-name-shadow-mode' for the shadow." | 120 | "Face used by `file-name-shadow-mode' for the shadow." |
| 119 | :group 'minibuffer) | 121 | :group 'minibuffer |
| 122 | :version "22.1") | ||
| 120 | 123 | ||
| 121 | 124 | ||
| 122 | ;;; Internal variables | 125 | ;;; Internal variables |
| @@ -210,6 +213,7 @@ Returns non-nil if the new state is enabled." | |||
| 210 | :global t | 213 | :global t |
| 211 | :init-value t | 214 | :init-value t |
| 212 | :group 'minibuffer | 215 | :group 'minibuffer |
| 216 | :version "22.1" | ||
| 213 | (if file-name-shadow-mode | 217 | (if file-name-shadow-mode |
| 214 | ;; Enable the mode | 218 | ;; Enable the mode |
| 215 | (add-hook 'minibuffer-setup-hook 'rfn-eshadow-setup-minibuffer) | 219 | (add-hook 'minibuffer-setup-hook 'rfn-eshadow-setup-minibuffer) |