Mercurial > emacs
comparison lisp/follow.el @ 21088:ac1673121774
Customized.
| author | Stephen Eglen <stephen@gnu.org> |
|---|---|
| date | Sat, 07 Mar 1998 18:19:38 +0000 |
| parents | f8860990bdf7 |
| children | a6119c0748e9 |
comparison
equal
deleted
inserted
replaced
| 21087:c297faa167f5 | 21088:ac1673121774 |
|---|---|
| 367 (put 'frame-first-window 'byte-compile 'nil)))))) | 367 (put 'frame-first-window 'byte-compile 'nil)))))) |
| 368 | 368 |
| 369 ;;}}} | 369 ;;}}} |
| 370 ;;{{{ Variables | 370 ;;{{{ Variables |
| 371 | 371 |
| 372 (defgroup follow nil | |
| 373 "Synchronize windows showing the same buffer." | |
| 374 :prefix "follow-" | |
| 375 :group 'windows) | |
| 376 | |
| 372 (defvar follow-mode nil | 377 (defvar follow-mode nil |
| 373 "Variable indicating if Follow mode is active.") | 378 "Variable indicating if Follow mode is active.") |
| 374 | 379 |
| 375 (defvar follow-mode-hook nil | 380 (defcustom follow-mode-hook nil |
| 376 "*Hooks to run when follow-mode is turned on.") | 381 "*Hooks to run when follow-mode is turned on." |
| 377 | 382 :type 'hook |
| 378 (defvar follow-mode-off-hook nil | 383 :group 'follow) |
| 379 "*Hooks to run when follow-mode is turned off.") | 384 |
| 385 (defcustom follow-mode-off-hook nil | |
| 386 "*Hooks to run when follow-mode is turned off." | |
| 387 :type 'hook | |
| 388 :group 'follow) | |
| 380 | 389 |
| 381 (defvar follow-mode-version "follow.el (Release 1.6)" | 390 (defvar follow-mode-version "follow.el (Release 1.6)" |
| 382 "The current version of Follow mode.") | 391 "The current version of Follow mode.") |
| 383 | 392 |
| 384 (defvar follow-mode-map nil | 393 (defvar follow-mode-map nil |
| 385 "*Minor mode keymap for Follow mode.") | 394 "*Minor mode keymap for Follow mode.") |
| 386 | 395 |
| 387 (defvar follow-mode-line-text " Follow" | 396 (defcustom follow-mode-line-text " Follow" |
| 388 "*Text shown in the mode line when Follow mode is active. | 397 "*Text shown in the mode line when Follow mode is active. |
| 389 Defaults to \" Follow\". Examples of other values | 398 Defaults to \" Follow\". Examples of other values |
| 390 are \" Fw\", or simply \"\".") | 399 are \" Fw\", or simply \"\"." |
| 391 | 400 :type 'string |
| 392 (defvar follow-auto nil | 401 :group 'follow) |
| 393 "*Non-nil activates Follow mode whenever a file is loaded.") | 402 |
| 394 | 403 (defcustom follow-auto nil |
| 395 (defvar follow-mode-prefix "\C-c." | 404 "*Non-nil activates Follow mode whenever a file is loaded." |
| 405 :type 'boolean | |
| 406 :group 'follow) | |
| 407 | |
| 408 (defcustom follow-mode-prefix "\C-c." | |
| 396 "*Prefix key to use for follow commands in Follow mode. | 409 "*Prefix key to use for follow commands in Follow mode. |
| 397 The value of this variable is checked as part of loading Follow mode. | 410 The value of this variable is checked as part of loading Follow mode. |
| 398 After that, changing the prefix key requires manipulating keymaps.") | 411 After that, changing the prefix key requires manipulating keymaps." |
| 399 | 412 :type 'string |
| 400 (defvar follow-intercept-processes t | 413 :group 'follow) |
| 401 "*When non-nil, Follow Mode will monitor process output.") | 414 |
| 415 (defcustom follow-intercept-processes t | |
| 416 "*When non-nil, Follow Mode will monitor process output." | |
| 417 :type 'boolean | |
| 418 :group 'follow) | |
| 402 | 419 |
| 403 (defvar follow-emacs-version-xemacs-p | 420 (defvar follow-emacs-version-xemacs-p |
| 404 (string-match "XEmacs" emacs-version) | 421 (string-match "XEmacs" emacs-version) |
| 405 "Non-nil when running under XEmacs.") | 422 "Non-nil when running under XEmacs.") |
| 406 | 423 |