diff options
| author | Glenn Morris | 2010-09-22 23:42:45 -0700 |
|---|---|---|
| committer | Glenn Morris | 2010-09-22 23:42:45 -0700 |
| commit | 1fc7dabfcfd30e4c987df5e0d31a2574e9a2cd1b (patch) | |
| tree | 1e852c37c54611999791b66432a7f0375172505c /lisp/emulation | |
| parent | 97161df81ec284e652047438c33bf596aa2d1ce9 (diff) | |
| download | emacs-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.el | 8 | ||||
| -rw-r--r-- | lisp/emulation/cua-base.el | 54 | ||||
| -rw-r--r-- | lisp/emulation/edt.el | 10 | ||||
| -rw-r--r-- | lisp/emulation/pc-select.el | 6 | ||||
| -rw-r--r-- | lisp/emulation/vip.el | 16 |
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 | |||
| 175 | nice to the world.") | 175 | nice 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. |
| 199 | Normally the CRiSP emulator rebinds M-x to `save-buffers-exit-emacs', and | 199 | Normally the CRiSP emulator rebinds M-x to `save-buffers-exit-emacs', and |
| 200 | provides the usual M-x functionality on the F10 key. If this variable | 200 | provides the usual M-x functionality on the F10 key. If this variable |
| 201 | is non-nil, M-x will exit Emacs." | 201 | is 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. |
| 274 | If the value is t, these mappings are always enabled. If the value is | 274 | If 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 |
| 276 | a shifted movement key. If the value is nil, these keys are never | 276 | a 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). |
| 285 | Also, M-v is mapped to `cua-repeat-replace-region'." | 285 | Also, 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>. |
| 296 | When this is non-nil, CUA toggles `transient-mark-mode' on when the region | 296 | When this is non-nil, CUA toggles `transient-mark-mode' on when the region |
| 297 | is marked using shifted movement keys, and off when the mark is cleared. | 297 | is marked using shifted movement keys, and off when the mark is cleared. |
| 298 | But when the mark was set using \\[cua-set-mark], Transient Mark mode | 298 | But 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. |
| 306 | If there is additional input within this time, the prefix key is | 306 | If there is additional input within this time, the prefix key is |
| 307 | used as a normal prefix key. So typing a key sequence quickly will | 307 | used as a normal prefix key. So typing a key sequence quickly will |
| 308 | inhibit overriding the prefix key. | 308 | inhibit 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. |
| 336 | This means that \\[universal-argument] \\[cua-set-mark] will jump to the position | 336 | This means that \\[universal-argument] \\[cua-set-mark] will jump to the position |
| 337 | of the last buffer change before jumping to the explicit marks on the mark ring. | 337 | of the last buffer change before jumping to the explicit marks on the mark ring. |
| 338 | See `cua-set-mark' for details." | 338 | See `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. |
| 344 | If the value is t, any numeric prefix arg in the range 0 to 9 will be | 344 | If the value is t, any numeric prefix arg in the range 0 to 9 will be |
| 345 | interpreted as a register number. | 345 | interpreted as a register number. |
| 346 | If the value is `not-ctrl-u', using C-u to enter a numeric prefix is not | 346 | If 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. |
| 373 | It is rumoured that `input-pending-p' is unreliable under some window | 373 | It is rumoured that `input-pending-p' is unreliable under some window |
| 374 | managers, so try setting this to nil, if prefix override doesn't work." | 374 | managers, 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. |
| 380 | This means that both \\[yank] and the first \\[yank-pop] in a sequence always insert | 380 | This means that both \\[yank] and the first \\[yank-pop] in a sequence always insert |
| 381 | the most recently killed text. Each immediately following \\[cua-paste-pop] replaces | 381 | the most recently killed text. Each immediately following \\[cua-paste-pop] replaces |
| 382 | the previous text with the next older element on the `kill-ring'. | 382 | the 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. |
| 392 | Note that although rectangles are always DISPLAYED with straight edges, the | 392 | Note that although rectangles are always DISPLAYED with straight edges, the |
| 393 | buffer is NOT modified, until you execute a command that actually modifies it. | 393 | buffer is NOT modified, until you execute a command that actually modifies it. |
| 394 | M-p toggles this feature when a rectangle is active." | 394 | M-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. |
| 400 | This basically means that `tabify' is applied to all lines that | 400 | This basically means that `tabify' is applied to all lines that |
| 401 | are modified by inserting or deleting a rectangle. If value is | 401 | are modified by inserting or deleting a rectangle. If value is |
| 402 | an integer, CUA will look for existing tabs in a region around | 402 | an 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. |
| 432 | On non-window systems, always use the meta modifier. | 432 | On non-window systems, always use the meta modifier. |
| 433 | Must be set prior to enabling CUA." | 433 | Must 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. |
| 521 | Only used when `cua-enable-cursor-indications' is non-nil. | 521 | Only used when `cua-enable-cursor-indications' is non-nil. |
| 522 | 522 | ||
| 523 | If the value is a COLOR name, then only the `cursor-color' attribute will be | 523 | If 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. |
| 545 | Only used when `cua-enable-cursor-indications' is non-nil. | 545 | Only used when `cua-enable-cursor-indications' is non-nil. |
| 546 | 546 | ||
| 547 | If the value is a COLOR name, then only the `cursor-color' attribute will be | 547 | If 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. |
| 569 | Will change cursor color to specified color if string. | 569 | Will change cursor color to specified color if string. |
| 570 | Only used when `cua-enable-cursor-indications' is non-nil. | 570 | Only 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! |
| 198 | Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT | 198 | Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT |
| 199 | Emulation. If set to nil (the default), the `page-delimiter' variable | 199 | Emulation. If set to nil (the default), the `page-delimiter' variable |
| 200 | is set to \"\\f\" when edt-emulation-on is first invoked. This | 200 | is 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! |
| 208 | Non-nil causes the control key bindings to be replaced with EDT | 208 | Non-nil causes the control key bindings to be replaced with EDT |
| 209 | bindings. If set to nil (the default), EDT control key bindings are | 209 | bindings. If set to nil (the default), EDT control key bindings are |
| 210 | not used and the current Emacs control key bindings are retained for | 210 | not 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. |
| 217 | The default list, (\?\\t), contains just the TAB character, which | 217 | The default list, (\?\\t), contains just the TAB character, which |
| 218 | emulates EDT. Characters are specified in the list using their | 218 | emulates EDT. Characters are specified in the list using their |
| 219 | decimal ASCII values. A question mark, followed by the actual | 219 | decimal 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. |
| 242 | Interpreted as a percent of the current window size with a default | 242 | Interpreted as a percent of the current window size with a default |
| 243 | setting of 10%. If set to 0, top scroll margin is disabled." | 243 | setting 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. |
| 249 | Interpreted as a percent of the current window size with a default | 249 | Interpreted as a percent of the current window size with a default |
| 250 | setting of 15%. If set to 0, bottom scroll margin is disabled." | 250 | setting 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. |
| 89 | This variable applies in PC Selection mode only. | 89 | This variable applies in PC Selection mode only. |
| 90 | The scroll commands normally generate an error if you try to scroll | 90 | The scroll commands normally generate an error if you try to scroll |
| 91 | past the top or bottom of the buffer. This is annoying when selecting | 91 | past 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. |
| 102 | Other keys that emulate pc-behavior will be untouched. | 102 | Other keys that emulate pc-behavior will be untouched. |
| 103 | This gives mostly Emacs-like behavior with only the selection keys enabled." | 103 | This 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. |
| 151 | If nil then it is bound to `delete-backward-char'." | 151 | If nil then it is bound to `delete-backward-char'." |
| 152 | :type 'boolean | 152 | :type 'boolean |
| 153 | :group 'vip) | 153 | :group 'vip) |