[Emacs-diffs] /srv/bzr/emacs/trunk r110780: * lisp/cus-start.el: Make cursor-type customizable.

[Chong Yidong]

------------------------------------------------------------
revno: 110780
fixes bug: http://debbugs.gnu.org/11633
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-11-03 23:24:00 +0800
message:
  * lisp/cus-start.el: Make cursor-type customizable.
  
  * src/buffer.c (cursor_type): Untabify docstring.
modified:
  lisp/ChangeLog
  lisp/cus-start.el
  src/ChangeLog
  src/buffer.c

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-02 22:44:38 +0000
+++ b/lisp/ChangeLog    2012-11-03 15:24:00 +0000
@@ -1,3 +1,7 @@
+2012-11-03  Chong Yidong  <address@hidden>
+
+       * cus-start.el: Make cursor-type customizable (Bug#11633).
+
 2012-11-02  Glenn Morris  <address@hidden>
 
        * filecache.el: No need to load find-lisp when compiling.

=== modified file 'lisp/cus-start.el'
--- a/lisp/cus-start.el 2012-10-23 02:39:13 +0000
+++ b/lisp/cus-start.el 2012-11-03 15:24:00 +0000
@@ -51,6 +51,19 @@
             (gc-cons-percentage alloc float)
             (garbage-collection-messages alloc boolean)
             ;; buffer.c
+            (cursor-type
+             display
+             (choice
+              (const :tag "Frame default" t)
+              (const :tag "Filled box" box)
+              (const :tag "Hollow cursor" hollow)
+              (const :tag "Vertical bar" bar)
+              (cons  :tag "Vertical bar with specified width"
+                     (const bar) integer)
+              (const :tag "Horizontal bar" hbar)
+              (cons  :tag "Horizontal bar with specified width"
+                     (const hbar) integer)
+              (const :tag "None "nil)))
             (mode-line-format mode-line sexp) ;Hard to do right.
             (major-mode internal function)
             (case-fold-search matching boolean)

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-11-03 05:59:17 +0000
+++ b/src/ChangeLog     2012-11-03 15:24:00 +0000
@@ -1,3 +1,7 @@
+2012-11-03  Chong Yidong  <address@hidden>
+
+       * buffer.c (cursor_type): Untabify docstring.
+
 2012-11-03  Dmitry Antipov  <address@hidden>
 
        * frame.h (struct frame): Drop can_have_scroll_bars member

=== modified file 'src/buffer.c'
--- a/src/buffer.c      2012-10-17 05:22:23 +0000
+++ b/src/buffer.c      2012-11-03 15:24:00 +0000
@@ -6210,15 +6210,15 @@
                     doc: /* Cursor to use when this buffer is in the selected 
window.
 Values are interpreted as follows:
 
-  t              use the cursor specified for the frame
-  nil            don't display a cursor
-  box            display a filled box cursor
-  hollow         display a hollow box cursor
-  bar            display a vertical bar cursor with default width
-  (bar . WIDTH)          display a vertical bar cursor with width WIDTH
-  hbar           display a horizontal bar cursor with default height
+  t               use the cursor specified for the frame
+  nil             don't display a cursor
+  box             display a filled box cursor
+  hollow          display a hollow box cursor
+  bar             display a vertical bar cursor with default width
+  (bar . WIDTH)   display a vertical bar cursor with width WIDTH
+  hbar            display a horizontal bar cursor with default height
   (hbar . HEIGHT) display a horizontal bar cursor with height HEIGHT
-  ANYTHING ELSE          display a hollow box cursor
+  ANYTHING ELSE   display a hollow box cursor
 
 When the buffer is displayed in a non-selected window, the
 cursor's appearance is instead controlled by the variable