aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorGlenn Morris2010-09-22 23:42:45 -0700
committerGlenn Morris2010-09-22 23:42:45 -0700
commit1fc7dabfcfd30e4c987df5e0d31a2574e9a2cd1b (patch)
tree1e852c37c54611999791b66432a7f0375172505c /lisp/emulation
parent97161df81ec284e652047438c33bf596aa2d1ce9 (diff)
downloademacs-1fc7dabfcfd30e4c987df5e0d31a2574e9a2cd1b.tar.gz
emacs-1fc7dabfcfd30e4c987df5e0d31a2574e9a2cd1b.zip
Remove leading `*' from docs of some defcustoms etc.
* emulation/crisp.el, emulation/cua-base.el, emulation/edt.el: * emulation/pc-select.el, emulation/vip.el, international/iso-ascii.el: * international/kkc.el, international/ogonek.el, mail/feedmail.el: * net/browse-url.el, net/eudc-vars.el, net/net-utils.el: * net/rcompile.el, net/rlogin.el, textmodes/enriched.el: * textmodes/makeinfo.el, textmodes/page-ext.el, textmodes/picture.el: * textmodes/refer.el, textmodes/spell.el, textmodes/table.el: * textmodes/tex-mode.el, textmodes/two-column.el: Remove leading `*' from docs of defcustoms etc.
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/crisp.el8
-rw-r--r--lisp/emulation/cua-base.el54
-rw-r--r--lisp/emulation/edt.el10
-rw-r--r--lisp/emulation/pc-select.el6
-rw-r--r--lisp/emulation/vip.el16
5 files changed, 47 insertions, 47 deletions
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index fd59ba760d8..9be200168ea 100644
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -1,7 +1,7 @@
1;;; crisp.el --- CRiSP/Brief Emacs emulator 1;;; crisp.el --- CRiSP/Brief Emacs emulator
2 2
3;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004, 3;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004, 2005, 2006,
4;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 4;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
5 5
6;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM> 6;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM>
7;; Keywords: emulations brief crisp 7;; Keywords: emulations brief crisp
@@ -175,7 +175,7 @@ All the bindings are done here instead of globally to try and be
175nice to the world.") 175nice to the world.")
176 176
177(defcustom crisp-mode-modeline-string " *CRiSP*" 177(defcustom crisp-mode-modeline-string " *CRiSP*"
178 "*String to display in the modeline when CRiSP emulation mode is enabled." 178 "String to display in the modeline when CRiSP emulation mode is enabled."
179 :type 'string 179 :type 'string
180 :group 'crisp) 180 :group 'crisp)
181 181
@@ -195,7 +195,7 @@ use either M-x customize or the function `crisp-mode'."
195 :group 'crisp) 195 :group 'crisp)
196 196
197(defcustom crisp-override-meta-x t 197(defcustom crisp-override-meta-x t
198 "*Controls overriding the normal Emacs M-x key binding in the CRiSP emulator. 198 "Controls overriding the normal Emacs M-x key binding in the CRiSP emulator.
199Normally the CRiSP emulator rebinds M-x to `save-buffers-exit-emacs', and 199Normally the CRiSP emulator rebinds M-x to `save-buffers-exit-emacs', and
200provides the usual M-x functionality on the F10 key. If this variable 200provides the usual M-x functionality on the F10 key. If this variable
201is non-nil, M-x will exit Emacs." 201is non-nil, M-x will exit Emacs."
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index f6749cd9e97..f088706afb0 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -270,7 +270,7 @@
270 :link '(emacs-library-link :tag "Lisp File" "cua-base.el")) 270 :link '(emacs-library-link :tag "Lisp File" "cua-base.el"))
271 271
272(defcustom cua-enable-cua-keys t 272(defcustom cua-enable-cua-keys t
273 "*Enable using C-z, C-x, C-c, and C-v for undo, cut, copy, and paste. 273 "Enable using C-z, C-x, C-c, and C-v for undo, cut, copy, and paste.
274If the value is t, these mappings are always enabled. If the value is 274If the value is t, these mappings are always enabled. If the value is
275`shift', these keys are only enabled if the last region was marked with 275`shift', these keys are only enabled if the last region was marked with
276a shifted movement key. If the value is nil, these keys are never 276a shifted movement key. If the value is nil, these keys are never
@@ -281,18 +281,18 @@ enabled."
281 :group 'cua) 281 :group 'cua)
282 282
283(defcustom cua-remap-control-v t 283(defcustom cua-remap-control-v t
284 "*If non-nil, C-v binding is used for paste (yank). 284 "If non-nil, C-v binding is used for paste (yank).
285Also, M-v is mapped to `cua-repeat-replace-region'." 285Also, M-v is mapped to `cua-repeat-replace-region'."
286 :type 'boolean 286 :type 'boolean
287 :group 'cua) 287 :group 'cua)
288 288
289(defcustom cua-remap-control-z t 289(defcustom cua-remap-control-z t
290 "*If non-nil, C-z binding is used for undo." 290 "If non-nil, C-z binding is used for undo."
291 :type 'boolean 291 :type 'boolean
292 :group 'cua) 292 :group 'cua)
293 293
294(defcustom cua-highlight-region-shift-only nil 294(defcustom cua-highlight-region-shift-only nil
295 "*If non-nil, only highlight region if marked with S-<move>. 295 "If non-nil, only highlight region if marked with S-<move>.
296When this is non-nil, CUA toggles `transient-mark-mode' on when the region 296When this is non-nil, CUA toggles `transient-mark-mode' on when the region
297is marked using shifted movement keys, and off when the mark is cleared. 297is marked using shifted movement keys, and off when the mark is cleared.
298But when the mark was set using \\[cua-set-mark], Transient Mark mode 298But when the mark was set using \\[cua-set-mark], Transient Mark mode
@@ -302,7 +302,7 @@ is not turned on."
302 302
303(defcustom cua-prefix-override-inhibit-delay 303(defcustom cua-prefix-override-inhibit-delay
304 (if (featurep 'lisp-float-type) (/ (float 1) (float 5)) nil) 304 (if (featurep 'lisp-float-type) (/ (float 1) (float 5)) nil)
305 "*If non-nil, time in seconds to delay before overriding prefix key. 305 "If non-nil, time in seconds to delay before overriding prefix key.
306If there is additional input within this time, the prefix key is 306If there is additional input within this time, the prefix key is
307used as a normal prefix key. So typing a key sequence quickly will 307used as a normal prefix key. So typing a key sequence quickly will
308inhibit overriding the prefix key. 308inhibit overriding the prefix key.
@@ -315,7 +315,7 @@ If the value is nil, use a shifted prefix key to inhibit the override."
315 :group 'cua) 315 :group 'cua)
316 316
317(defcustom cua-delete-selection t 317(defcustom cua-delete-selection t
318 "*If non-nil, typed text replaces text in the active selection." 318 "If non-nil, typed text replaces text in the active selection."
319 :type '(choice (const :tag "Disabled" nil) 319 :type '(choice (const :tag "Disabled" nil)
320 (other :tag "Enabled" t)) 320 (other :tag "Enabled" t))
321 :group 'cua) 321 :group 'cua)
@@ -326,13 +326,13 @@ If the value is nil, use a shifted prefix key to inhibit the override."
326 :group 'cua) 326 :group 'cua)
327 327
328(defcustom cua-toggle-set-mark t 328(defcustom cua-toggle-set-mark t
329 "*If non-nil, the `cua-set-mark' command toggles the mark." 329 "If non-nil, the `cua-set-mark' command toggles the mark."
330 :type '(choice (const :tag "Disabled" nil) 330 :type '(choice (const :tag "Disabled" nil)
331 (other :tag "Enabled" t)) 331 (other :tag "Enabled" t))
332 :group 'cua) 332 :group 'cua)
333 333
334(defcustom cua-auto-mark-last-change nil 334(defcustom cua-auto-mark-last-change nil
335 "*If non-nil, set implicit mark at position of last buffer change. 335 "If non-nil, set implicit mark at position of last buffer change.
336This means that \\[universal-argument] \\[cua-set-mark] will jump to the position 336This means that \\[universal-argument] \\[cua-set-mark] will jump to the position
337of the last buffer change before jumping to the explicit marks on the mark ring. 337of the last buffer change before jumping to the explicit marks on the mark ring.
338See `cua-set-mark' for details." 338See `cua-set-mark' for details."
@@ -340,7 +340,7 @@ See `cua-set-mark' for details."
340 :group 'cua) 340 :group 'cua)
341 341
342(defcustom cua-enable-register-prefix 'not-ctrl-u 342(defcustom cua-enable-register-prefix 'not-ctrl-u
343 "*If non-nil, registers are supported via numeric prefix arg. 343 "If non-nil, registers are supported via numeric prefix arg.
344If the value is t, any numeric prefix arg in the range 0 to 9 will be 344If the value is t, any numeric prefix arg in the range 0 to 9 will be
345interpreted as a register number. 345interpreted as a register number.
346If the value is `not-ctrl-u', using C-u to enter a numeric prefix is not 346If the value is `not-ctrl-u', using C-u to enter a numeric prefix is not
@@ -354,29 +354,29 @@ interpreted as a register number."
354 :group 'cua) 354 :group 'cua)
355 355
356(defcustom cua-delete-copy-to-register-0 t 356(defcustom cua-delete-copy-to-register-0 t
357 "*If non-nil, save last deleted region or rectangle to register 0." 357 "If non-nil, save last deleted region or rectangle to register 0."
358 :type 'boolean 358 :type 'boolean
359 :group 'cua) 359 :group 'cua)
360 360
361(defcustom cua-enable-region-auto-help nil 361(defcustom cua-enable-region-auto-help nil
362 "*If non-nil, automatically show help for active region." 362 "If non-nil, automatically show help for active region."
363 :type 'boolean 363 :type 'boolean
364 :group 'cua) 364 :group 'cua)
365 365
366(defcustom cua-enable-modeline-indications nil 366(defcustom cua-enable-modeline-indications nil
367 "*If non-nil, use minor-mode hook to show status in mode line." 367 "If non-nil, use minor-mode hook to show status in mode line."
368 :type 'boolean 368 :type 'boolean
369 :group 'cua) 369 :group 'cua)
370 370
371(defcustom cua-check-pending-input t 371(defcustom cua-check-pending-input t
372 "*If non-nil, don't override prefix key if input pending. 372 "If non-nil, don't override prefix key if input pending.
373It is rumoured that `input-pending-p' is unreliable under some window 373It is rumoured that `input-pending-p' is unreliable under some window
374managers, so try setting this to nil, if prefix override doesn't work." 374managers, so try setting this to nil, if prefix override doesn't work."
375 :type 'boolean 375 :type 'boolean
376 :group 'cua) 376 :group 'cua)
377 377
378(defcustom cua-paste-pop-rotate-temporarily nil 378(defcustom cua-paste-pop-rotate-temporarily nil
379 "*If non-nil, \\[cua-paste-pop] only rotates the kill-ring temporarily. 379 "If non-nil, \\[cua-paste-pop] only rotates the kill-ring temporarily.
380This means that both \\[yank] and the first \\[yank-pop] in a sequence always insert 380This means that both \\[yank] and the first \\[yank-pop] in a sequence always insert
381the most recently killed text. Each immediately following \\[cua-paste-pop] replaces 381the most recently killed text. Each immediately following \\[cua-paste-pop] replaces
382the previous text with the next older element on the `kill-ring'. 382the previous text with the next older element on the `kill-ring'.
@@ -388,7 +388,7 @@ recent \\[yank-pop] (or \\[yank]) command."
388;;; Rectangle Customization 388;;; Rectangle Customization
389 389
390(defcustom cua-virtual-rectangle-edges t 390(defcustom cua-virtual-rectangle-edges t
391 "*If non-nil, rectangles have virtual straight edges. 391 "If non-nil, rectangles have virtual straight edges.
392Note that although rectangles are always DISPLAYED with straight edges, the 392Note that although rectangles are always DISPLAYED with straight edges, the
393buffer is NOT modified, until you execute a command that actually modifies it. 393buffer is NOT modified, until you execute a command that actually modifies it.
394M-p toggles this feature when a rectangle is active." 394M-p toggles this feature when a rectangle is active."
@@ -396,7 +396,7 @@ M-p toggles this feature when a rectangle is active."
396 :group 'cua) 396 :group 'cua)
397 397
398(defcustom cua-auto-tabify-rectangles 1000 398(defcustom cua-auto-tabify-rectangles 1000
399 "*If non-nil, automatically tabify after rectangle commands. 399 "If non-nil, automatically tabify after rectangle commands.
400This basically means that `tabify' is applied to all lines that 400This basically means that `tabify' is applied to all lines that
401are modified by inserting or deleting a rectangle. If value is 401are modified by inserting or deleting a rectangle. If value is
402an integer, CUA will look for existing tabs in a region around 402an integer, CUA will look for existing tabs in a region around
@@ -428,7 +428,7 @@ and after the region marked by the rectangle to search."
428 :group 'cua) 428 :group 'cua)
429 429
430(defcustom cua-rectangle-modifier-key 'meta 430(defcustom cua-rectangle-modifier-key 'meta
431 "*Modifier key used for rectangle commands bindings. 431 "Modifier key used for rectangle commands bindings.
432On non-window systems, always use the meta modifier. 432On non-window systems, always use the meta modifier.
433Must be set prior to enabling CUA." 433Must be set prior to enabling CUA."
434 :type '(choice (const :tag "Meta key" meta) 434 :type '(choice (const :tag "Meta key" meta)
@@ -438,27 +438,27 @@ Must be set prior to enabling CUA."
438 :group 'cua) 438 :group 'cua)
439 439
440(defcustom cua-enable-rectangle-auto-help t 440(defcustom cua-enable-rectangle-auto-help t
441 "*If non-nil, automatically show help for region, rectangle and global mark." 441 "If non-nil, automatically show help for region, rectangle and global mark."
442 :type 'boolean 442 :type 'boolean
443 :group 'cua) 443 :group 'cua)
444 444
445(defface cua-rectangle 445(defface cua-rectangle
446 '((default :inherit region) 446 '((default :inherit region)
447 (((class color)) :foreground "white" :background "maroon")) 447 (((class color)) :foreground "white" :background "maroon"))
448 "*Font used by CUA for highlighting the rectangle." 448 "Font used by CUA for highlighting the rectangle."
449 :group 'cua) 449 :group 'cua)
450 450
451(defface cua-rectangle-noselect 451(defface cua-rectangle-noselect
452 '((default :inherit region) 452 '((default :inherit region)
453 (((class color)) :foreground "white" :background "dimgray")) 453 (((class color)) :foreground "white" :background "dimgray"))
454 "*Font used by CUA for highlighting the non-selected rectangle lines." 454 "Font used by CUA for highlighting the non-selected rectangle lines."
455 :group 'cua) 455 :group 'cua)
456 456
457 457
458;;; Global Mark Customization 458;;; Global Mark Customization
459 459
460(defcustom cua-global-mark-keep-visible t 460(defcustom cua-global-mark-keep-visible t
461 "*If non-nil, always keep global mark visible in other window." 461 "If non-nil, always keep global mark visible in other window."
462 :type 'boolean 462 :type 'boolean
463 :group 'cua) 463 :group 'cua)
464 464
@@ -466,11 +466,11 @@ Must be set prior to enabling CUA."
466 '((((min-colors 88)(class color)) :foreground "black" :background "yellow1") 466 '((((min-colors 88)(class color)) :foreground "black" :background "yellow1")
467 (((class color)) :foreground "black" :background "yellow") 467 (((class color)) :foreground "black" :background "yellow")
468 (t :bold t)) 468 (t :bold t))
469 "*Font used by CUA for highlighting the global mark." 469 "Font used by CUA for highlighting the global mark."
470 :group 'cua) 470 :group 'cua)
471 471
472(defcustom cua-global-mark-blink-cursor-interval 0.20 472(defcustom cua-global-mark-blink-cursor-interval 0.20
473 "*Blink cursor at this interval when global mark is active." 473 "Blink cursor at this interval when global mark is active."
474 :type '(choice (number :tag "Blink interval") 474 :type '(choice (number :tag "Blink interval")
475 (const :tag "No blink" nil)) 475 (const :tag "No blink" nil))
476 :group 'cua) 476 :group 'cua)
@@ -479,7 +479,7 @@ Must be set prior to enabling CUA."
479;;; Cursor Indication Customization 479;;; Cursor Indication Customization
480 480
481(defcustom cua-enable-cursor-indications nil 481(defcustom cua-enable-cursor-indications nil
482 "*If non-nil, use different cursor colors for indications." 482 "If non-nil, use different cursor colors for indications."
483 :type 'boolean 483 :type 'boolean
484 :group 'cua) 484 :group 'cua)
485 485
@@ -517,7 +517,7 @@ a cons (TYPE . COLOR), then both properties are affected."
517 :group 'cua) 517 :group 'cua)
518 518
519(defcustom cua-read-only-cursor-color "darkgreen" 519(defcustom cua-read-only-cursor-color "darkgreen"
520 "*Cursor color used in read-only buffers, if non-nil. 520 "Cursor color used in read-only buffers, if non-nil.
521Only used when `cua-enable-cursor-indications' is non-nil. 521Only used when `cua-enable-cursor-indications' is non-nil.
522 522
523If the value is a COLOR name, then only the `cursor-color' attribute will be 523If the value is a COLOR name, then only the `cursor-color' attribute will be
@@ -541,7 +541,7 @@ a cons (TYPE . COLOR), then both properties are affected."
541 :group 'cua) 541 :group 'cua)
542 542
543(defcustom cua-overwrite-cursor-color "yellow" 543(defcustom cua-overwrite-cursor-color "yellow"
544 "*Cursor color used when overwrite mode is set, if non-nil. 544 "Cursor color used when overwrite mode is set, if non-nil.
545Only used when `cua-enable-cursor-indications' is non-nil. 545Only used when `cua-enable-cursor-indications' is non-nil.
546 546
547If the value is a COLOR name, then only the `cursor-color' attribute will be 547If the value is a COLOR name, then only the `cursor-color' attribute will be
@@ -565,7 +565,7 @@ a cons (TYPE . COLOR), then both properties are affected."
565 :group 'cua) 565 :group 'cua)
566 566
567(defcustom cua-global-mark-cursor-color "cyan" 567(defcustom cua-global-mark-cursor-color "cyan"
568 "*Indication for active global mark. 568 "Indication for active global mark.
569Will change cursor color to specified color if string. 569Will change cursor color to specified color if string.
570Only used when `cua-enable-cursor-indications' is non-nil. 570Only used when `cua-enable-cursor-indications' is non-nil.
571 571
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 88b74afe86b..1e017075d84 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -194,7 +194,7 @@
194;;; 194;;;
195 195
196(defcustom edt-keep-current-page-delimiter nil 196(defcustom edt-keep-current-page-delimiter nil
197 "*Emacs MUST be restarted for a change in value to take effect! 197 "Emacs MUST be restarted for a change in value to take effect!
198Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT 198Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT
199Emulation. If set to nil (the default), the `page-delimiter' variable 199Emulation. If set to nil (the default), the `page-delimiter' variable
200is set to \"\\f\" when edt-emulation-on is first invoked. This 200is set to \"\\f\" when edt-emulation-on is first invoked. This
@@ -204,7 +204,7 @@ is restored when edt-emulation-off is called."
204 :group 'edt) 204 :group 'edt)
205 205
206(defcustom edt-use-EDT-control-key-bindings nil 206(defcustom edt-use-EDT-control-key-bindings nil
207 "*Emacs MUST be restarted for a change in value to take effect! 207 "Emacs MUST be restarted for a change in value to take effect!
208Non-nil causes the control key bindings to be replaced with EDT 208Non-nil causes the control key bindings to be replaced with EDT
209bindings. If set to nil (the default), EDT control key bindings are 209bindings. If set to nil (the default), EDT control key bindings are
210not used and the current Emacs control key bindings are retained for 210not used and the current Emacs control key bindings are retained for
@@ -213,7 +213,7 @@ use within the EDT emulation."
213 :group 'edt) 213 :group 'edt)
214 214
215(defcustom edt-word-entities '(?\t) 215(defcustom edt-word-entities '(?\t)
216 "*Specifies the list of EDT word entity characters. 216 "Specifies the list of EDT word entity characters.
217The default list, (\?\\t), contains just the TAB character, which 217The default list, (\?\\t), contains just the TAB character, which
218emulates EDT. Characters are specified in the list using their 218emulates EDT. Characters are specified in the list using their
219decimal ASCII values. A question mark, followed by the actual 219decimal ASCII values. A question mark, followed by the actual
@@ -238,14 +238,14 @@ will be treated as if it were a separate word."
238 :group 'edt) 238 :group 'edt)
239 239
240(defcustom edt-top-scroll-margin 10 240(defcustom edt-top-scroll-margin 10
241 "*Scroll margin at the top of the screen. 241 "Scroll margin at the top of the screen.
242Interpreted as a percent of the current window size with a default 242Interpreted as a percent of the current window size with a default
243setting of 10%. If set to 0, top scroll margin is disabled." 243setting of 10%. If set to 0, top scroll margin is disabled."
244 :type 'integer 244 :type 'integer
245 :group 'edt) 245 :group 'edt)
246 246
247(defcustom edt-bottom-scroll-margin 15 247(defcustom edt-bottom-scroll-margin 15
248 "*Scroll margin at the bottom of the screen. 248 "Scroll margin at the bottom of the screen.
249Interpreted as a percent of the current window size with a default 249Interpreted as a percent of the current window size with a default
250setting of 15%. If set to 0, bottom scroll margin is disabled." 250setting of 15%. If set to 0, bottom scroll margin is disabled."
251 :type 'integer 251 :type 'integer
diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el
index fcff6a7eb60..8dcdb991ab2 100644
--- a/lisp/emulation/pc-select.el
+++ b/lisp/emulation/pc-select.el
@@ -85,7 +85,7 @@
85 :group 'emulations) 85 :group 'emulations)
86 86
87(defcustom pc-select-override-scroll-error t 87(defcustom pc-select-override-scroll-error t
88 "*Non-nil means don't generate error on scrolling past edge of buffer. 88 "Non-nil means don't generate error on scrolling past edge of buffer.
89This variable applies in PC Selection mode only. 89This variable applies in PC Selection mode only.
90The scroll commands normally generate an error if you try to scroll 90The scroll commands normally generate an error if you try to scroll
91past the top or bottom of the buffer. This is annoying when selecting 91past the top or bottom of the buffer. This is annoying when selecting
@@ -98,14 +98,14 @@ errors are suppressed."
98 "24.1") 98 "24.1")
99 99
100(defcustom pc-select-selection-keys-only nil 100(defcustom pc-select-selection-keys-only nil
101 "*Non-nil means only bind the basic selection keys when started. 101 "Non-nil means only bind the basic selection keys when started.
102Other keys that emulate pc-behavior will be untouched. 102Other keys that emulate pc-behavior will be untouched.
103This gives mostly Emacs-like behavior with only the selection keys enabled." 103This gives mostly Emacs-like behavior with only the selection keys enabled."
104 :type 'boolean 104 :type 'boolean
105 :group 'pc-select) 105 :group 'pc-select)
106 106
107(defcustom pc-select-meta-moves-sexps nil 107(defcustom pc-select-meta-moves-sexps nil
108 "*Non-nil means move sexp-wise with Meta key, otherwise move word-wise." 108 "Non-nil means move sexp-wise with Meta key, otherwise move word-wise."
109 :type 'boolean 109 :type 'boolean
110 :group 'pc-select) 110 :group 'pc-select)
111 111
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 4839e07bc1c..0474ba7c679 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -91,12 +91,12 @@
91 "How to reexecute last destructive command. Value is list (M-COM VAL COM).") 91 "How to reexecute last destructive command. Value is list (M-COM VAL COM).")
92 92
93(defcustom vip-shift-width 8 93(defcustom vip-shift-width 8
94 "*The number of columns shifted by > and < command." 94 "The number of columns shifted by > and < command."
95 :type 'integer 95 :type 'integer
96 :group 'vip) 96 :group 'vip)
97 97
98(defcustom vip-re-replace nil 98(defcustom vip-re-replace nil
99 "*If t then do regexp replace, if nil then do string replace." 99 "If t then do regexp replace, if nil then do string replace."
100 :type 'boolean 100 :type 'boolean
101 :group 'vip) 101 :group 'vip)
102 102
@@ -116,12 +116,12 @@
116 "For use by \";\" command.") 116 "For use by \";\" command.")
117 117
118(defcustom vip-search-wrap-around t 118(defcustom vip-search-wrap-around t
119 "*If t, search wraps around." 119 "If t, search wraps around."
120 :type 'boolean 120 :type 'boolean
121 :group 'vip) 121 :group 'vip)
122 122
123(defcustom vip-re-search nil 123(defcustom vip-re-search nil
124 "*If t, search is reg-exp search, otherwise vanilla search." 124 "If t, search is reg-exp search, otherwise vanilla search."
125 :type 'boolean 125 :type 'boolean
126 :group 'vip) 126 :group 'vip)
127 127
@@ -132,22 +132,22 @@
132 "If t, search is forward.") 132 "If t, search is forward.")
133 133
134(defcustom vip-case-fold-search nil 134(defcustom vip-case-fold-search nil
135 "*If t, search ignores cases." 135 "If t, search ignores cases."
136 :type 'boolean 136 :type 'boolean
137 :group 'vip) 137 :group 'vip)
138 138
139(defcustom vip-re-query-replace nil 139(defcustom vip-re-query-replace nil
140 "*If t then do regexp replace, if nil then do string replace." 140 "If t then do regexp replace, if nil then do string replace."
141 :type 'boolean 141 :type 'boolean
142 :group 'vip) 142 :group 'vip)
143 143
144(defcustom vip-open-with-indent nil 144(defcustom vip-open-with-indent nil
145 "*If t, indent when open a new line." 145 "If t, indent when open a new line."
146 :type 'boolean 146 :type 'boolean
147 :group 'vip) 147 :group 'vip)
148 148
149(defcustom vip-help-in-insert-mode nil 149(defcustom vip-help-in-insert-mode nil
150 "*If t then C-h is bound to help-command in insert mode. 150 "If t then C-h is bound to help-command in insert mode.
151If nil then it is bound to `delete-backward-char'." 151If nil then it is bound to `delete-backward-char'."
152 :type 'boolean 152 :type 'boolean
153 :group 'vip) 153 :group 'vip)