Mercurial > emacs
diff lisp/cus-start.el @ 90223:edf295560b5a
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-77
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 504-513)
- Update from CVS
- Merge from gnus--rel--5.10
- Update from CVS: .cvsignore: Add `lock'.
* gnus--rel--5.10 (patch 99-103)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 05 Aug 2005 10:57:36 +0000 |
parents | fbb2bea03df9 b991ecaae196 |
children | 2d92f5c9d6ae |
line wrap: on
line diff
--- a/lisp/cus-start.el Fri Jul 29 11:44:50 2005 +0000 +++ b/lisp/cus-start.el Fri Aug 05 10:57:36 2005 +0000 @@ -40,20 +40,6 @@ ;; alloc.c (gc-cons-threshold alloc integer) (garbage-collection-messages alloc boolean) - ;; undo.c - (undo-limit undo integer) - (undo-strong-limit undo integer) - (undo-outer-limit undo - (choice integer - (const :tag "No limit" - :format "%t\n%d" - :doc - "With this choice, \ -the undo info for the current command never gets discarded. -This should only be chosen under exceptional circumstances, -since it could result in memory overflow and make Emacs crash." - nil)) - "22.1") ;; buffer.c (mode-line-format modeline sexp) ;Hard to do right. (default-major-mode internal function) @@ -65,7 +51,47 @@ (ctl-arrow display boolean) (truncate-lines display boolean) (selective-display-ellipses display boolean) - (indicate-empty-lines display boolean "21.1") + (indicate-empty-lines fringe boolean "21.1") + (indicate-buffer-boundaries + fringe + (choice + (const :tag "No indicators" nil) + (const :tag "On left, with arrows" left) + (const :tag "On right, with arrows" right) + (set :tag "Pick your own design" + :value ((t . nil)) + :format "%{%t%}:\n%v\n%d" + :doc "You can specify a default and then override it \ +for individual indicators. +Leaving \"Default\" unchecked is equivalent with specifying a default of +\"Do not show\"." + (choice :tag "Default" + :value (t . nil) + (const :tag "Do not show" (t . nil)) + (const :tag "On the left" (t . left)) + (const :tag "On the right" (t . right))) + (choice :tag "Top" + :value (top . left) + (const :tag "Do not show" (top . nil)) + (const :tag "On the left" (top . left)) + (const :tag "On the right" (top . right))) + (choice :tag "Bottom" + :value (bottom . left) + (const :tag "Do not show" (bottom . nil)) + (const :tag "On the left" (bottom . left)) + (const :tag "On the right" (bottom . right))) + (choice :tag "Up arrow" + :value (up . left) + (const :tag "Do not show" (up . nil)) + (const :tag "On the left" (up . left)) + (const :tag "On the right" (up . right))) + (choice :tag "Down arrow" + :value (down . left) + (const :tag "Do not show" (down . nil)) + (const :tag "On the left" (down . left)) + (const :tag "On the right" (down . right)))) + (other :tag "On left, no arrows" t)) + "22.1") (scroll-up-aggressively windows (choice (const :tag "off" nil) number) "21.1") @@ -220,6 +246,20 @@ (words-include-escapes editing-basics boolean) (open-paren-in-column-0-is-defun-start editing-basics boolean "21.1") + ;; undo.c + (undo-limit undo integer) + (undo-strong-limit undo integer) + (undo-outer-limit undo + (choice integer + (const :tag "No limit" + :format "%t\n%d" + :doc + "With this choice, \ +the undo info for the current command never gets discarded. +This should only be chosen under exceptional circumstances, +since it could result in memory overflow and make Emacs crash." + nil)) + "22.1") ;; window.c (temp-buffer-show-function windows (choice (const nil) function)) (display-buffer-function windows (choice (const nil) function))