diff options
| author | Luc Teirlinck | 2005-08-02 02:00:20 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-08-02 02:00:20 +0000 |
| commit | a4fbb790db4e05bab11b0837872cc45d536aee7a (patch) | |
| tree | 2ca7205767c0b94e9e4406e20dd3818d1adacd52 | |
| parent | f28564957e495d953e729987bfdd96dc1c709646 (diff) | |
| download | emacs-a4fbb790db4e05bab11b0837872cc45d536aee7a.tar.gz emacs-a4fbb790db4e05bab11b0837872cc45d536aee7a.zip | |
(all): Make `indicate-buffer-boundaries' display values set outside
Custom once again correctly in Custom buffer.
| -rw-r--r-- | lisp/cus-start.el | 60 |
1 files changed, 32 insertions, 28 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 694eb96e22d..b61275f4211 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el | |||
| @@ -72,34 +72,38 @@ since it could result in memory overflow and make Emacs crash." | |||
| 72 | (const :tag "No indicators" nil) | 72 | (const :tag "No indicators" nil) |
| 73 | (const :tag "On left, with arrows" left) | 73 | (const :tag "On left, with arrows" left) |
| 74 | (const :tag "On right, with arrows" right) | 74 | (const :tag "On right, with arrows" right) |
| 75 | (list :tag "Pick your own design" | 75 | (set :tag "Pick your own design" |
| 76 | :value ((t . nil)) | 76 | :value ((t . nil)) |
| 77 | (choice :tag "Default" | 77 | :format "%{%t%}:\n%v\n%d" |
| 78 | (const :tag "Do not show" (t . nil)) | 78 | :doc "You can specify a default and then override it \ |
| 79 | (const :tag "On the left" (t . left)) | 79 | for individual indicators. |
| 80 | (const :tag "On the right" (t . right))) | 80 | Leaving \"Default\" unchecked is equivalent with specifying a default of |
| 81 | (set :inline t | 81 | \"Do not show\"." |
| 82 | :tag "Override default for" | 82 | (choice :tag "Default" |
| 83 | (choice :tag "Top" | 83 | :value (t . nil) |
| 84 | :value (top . left) | 84 | (const :tag "Do not show" (t . nil)) |
| 85 | (const :tag "Do not show" (top . nil)) | 85 | (const :tag "On the left" (t . left)) |
| 86 | (const :tag "On the left" (top . left)) | 86 | (const :tag "On the right" (t . right))) |
| 87 | (const :tag "On the right" (top . right))) | 87 | (choice :tag "Top" |
| 88 | (choice :tag "Bottom" | 88 | :value (top . left) |
| 89 | :value (bottom . left) | 89 | (const :tag "Do not show" (top . nil)) |
| 90 | (const :tag "Do not show" (bottom . nil)) | 90 | (const :tag "On the left" (top . left)) |
| 91 | (const :tag "On the left" (bottom . left)) | 91 | (const :tag "On the right" (top . right))) |
| 92 | (const :tag "On the right" (bottom . right))) | 92 | (choice :tag "Bottom" |
| 93 | (choice :tag "Up arrow" | 93 | :value (bottom . left) |
| 94 | :value (up . left) | 94 | (const :tag "Do not show" (bottom . nil)) |
| 95 | (const :tag "Do not show" (up . nil)) | 95 | (const :tag "On the left" (bottom . left)) |
| 96 | (const :tag "On the left" (up . left)) | 96 | (const :tag "On the right" (bottom . right))) |
| 97 | (const :tag "On the right" (up . right))) | 97 | (choice :tag "Up arrow" |
| 98 | (choice :tag "Down arrow" | 98 | :value (up . left) |
| 99 | :value (down . left) | 99 | (const :tag "Do not show" (up . nil)) |
| 100 | (const :tag "Do not show" (down . nil)) | 100 | (const :tag "On the left" (up . left)) |
| 101 | (const :tag "On the left" (down . left)) | 101 | (const :tag "On the right" (up . right))) |
| 102 | (const :tag "On the right" (down . right))))) | 102 | (choice :tag "Down arrow" |
| 103 | :value (down . left) | ||
| 104 | (const :tag "Do not show" (down . nil)) | ||
| 105 | (const :tag "On the left" (down . left)) | ||
| 106 | (const :tag "On the right" (down . right)))) | ||
| 103 | (other :tag "On left, no arrows" t)) | 107 | (other :tag "On left, no arrows" t)) |
| 104 | "22.1") | 108 | "22.1") |
| 105 | (scroll-up-aggressively windows | 109 | (scroll-up-aggressively windows |