![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to loaddefs.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp|
Return to loaddefs.el CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp |
1.1 ! root 1: ;; Define standard autoloads and keys of other files, for Emacs. ! 2: ;; Copyright (C) 1985 Richard M. Stallman. ! 3: ! 4: ;; This file is part of GNU Emacs. ! 5: ! 6: ;; GNU Emacs is distributed in the hope that it will be useful, ! 7: ;; but WITHOUT ANY WARRANTY. No author or distributor ! 8: ;; accepts responsibility to anyone for the consequences of using it ! 9: ;; or for whether it serves any particular purpose or works at all, ! 10: ;; unless he says so in writing. Refer to the GNU Emacs General Public ! 11: ;; License for full details. ! 12: ! 13: ;; Everyone is granted permission to copy, modify and redistribute ! 14: ;; GNU Emacs, but only under the conditions described in the ! 15: ;; GNU Emacs General Public License. A copy of this license is ! 16: ;; supposed to have been given to you along with GNU Emacs so you ! 17: ;; can know your rights and responsibilities. It should be in a ! 18: ;; file named COPYING. Among other things, the copyright notice ! 19: ;; and this notice must be preserved on all copies. ! 20: ! 21: ! 22: ;; Know which function the debuger is! ! 23: (setq debugger 'debug) ! 24: ! 25: ;; These variables are used by autoloadable packages. ! 26: ;; They are defined here so that they do not get overridden ! 27: ;; by the loading of those packages. ! 28: ! 29: (defconst paragraph-start "^[ \t\n\f]" ! 30: "*Regexp for beginning of a line that starts OR separates paragraphs.") ! 31: (defconst paragraph-separate "^[ \t\f]*$" ! 32: "*Regexp for beginning of a line that separates paragraphs. ! 33: If you change this, you may have to change paragraph-start also.") ! 34: ! 35: (defconst sentence-end "[.?!][]\")]*\\($\\|\t\\| \\)[ \t\n]*" ! 36: "*Regexp describing the end of a sentence. ! 37: All paragraph boundaries also end sentences, regardless.") ! 38: ! 39: (defconst page-delimiter "^\014" ! 40: "*Regexp describing line-beginnings that separate pages.") ! 41: ! 42: (defconst case-replace t ! 43: "*Non-nil means query-replace should preserve case in replacements.") ! 44: ! 45: ;; indent.el may not be autoloading, but it still loses ! 46: ;; if lisp-mode is ever called before this defvar is done. ! 47: (defvar indent-line-function ! 48: 'indent-to-left-margin ! 49: "Function to indent current line.") ! 50: ! 51: (defconst only-global-abbrevs nil ! 52: "*t means user plans to use global abbrevs only. ! 53: Makes the commands to define mode-specific abbrevs define global ones instead.") ! 54: ! 55: (defconst abbrev-file-name "~/.abbrev_defs" ! 56: "*Default name of file to read abbrevs from.") ! 57: ! 58: ;; Names in directory that end in one of these ! 59: ;; are ignored in completion, ! 60: ;; making it more likely you will get a unique match. ! 61: (setq completion-ignored-extensions ! 62: '(".o" ".elc" "~" ".dvi" ".toc" ".log" ".aux" ".lof")) ! 63: ! 64: (defvar compile-command "make -k" ! 65: "*Last shell command used to do a compilation; default for next compilation.") ! 66: ! 67: (defvar dired-listing-switches "-al" ! 68: "*Switches passed to ls for Dired. MUST contain the `l' option. ! 69: CANNOT contain the `F' option.") ! 70: ! 71: (defconst lpr-switches nil ! 72: "*List of strings to pass as extra switch args to lpr when it is invoked.") ! 73: ! 74: (defvar tags-file-name nil ! 75: "*File name of tag table. ! 76: To switch to a new tag table, setting this variable is sufficient. ! 77: Use the `etags' program to make a tag table file.") ! 78: ! 79: (defconst shell-prompt-pattern ! 80: "^[^#$%>]*[#$%>] *" ! 81: "*Regexp used by Newline command in shell mode to match subshell prompts. ! 82: Anything from beginning of line up to the end of what this pattern matches ! 83: is deemed to be prompt, and is not reexecuted.") ! 84: ! 85: (defconst ledit-save-files t ! 86: "*Non-nil means Ledit should save files before transferring to Lisp.") ! 87: (defconst ledit-go-to-lisp-string "%?lisp" ! 88: "*Shell commands to execute to resume Lisp job.") ! 89: (defconst ledit-go-to-liszt-string "%?liszt" ! 90: "*Shell commands to execute to resume Lisp compiler job.") ! 91: ! 92: (defconst display-time-day-and-date nil ! 93: "*Non-nil means M-x display-time should display day and date as well as time.") ! 94: ! 95: ;;; Determine mode according to filename ! 96: ! 97: (defvar auto-mode-alist ! 98: '(("\\.text$" . text-mode) ! 99: ("\\.mss$" . text-mode) ! 100: ("\\.tex$" . TeX-mode) ! 101: ("\\.TeX$" . TeX-mode) ! 102: ("\\.sty$" . TeX-mode) ! 103: ("\\.texinfo$" . texinfo-mode) ! 104: ;; Mailer puts message to be edited in /tmp/Re.... or Message ! 105: ("^/tmp/Re" . non-saved-text-mode) ! 106: ;; some news reader is reported to use this ! 107: ("^/tmp/fol/" . non-saved-text-mode) ! 108: ("/Message[0-9]*$" . text-mode) ! 109: ("\\.c$" . c-mode) ! 110: ("\\.h$" . c-mode) ! 111: ("\\.y$" . c-mode) ! 112: ("\\.scm$" . scheme-mode) ! 113: ("\\.scm.[0-9]*$" . scheme-mode) ! 114: ("/\\..*emacs" . emacs-lisp-mode) ! 115: ("\\.el$" . emacs-lisp-mode) ! 116: ("\\.ml$" . lisp-mode) ! 117: ("\\.l$" . lisp-mode) ! 118: ("\\.lisp$" . lisp-mode)) ! 119: "Alist of filename patterns vs corresponding major mode functions. ! 120: Each element looks like (REGEXP . FUNCTION). ! 121: Visiting a file whose name matches REGEXP causes FUNCTION to be called.") ! 122: ! 123: ;; Autoload random libraries. ! 124: ;; Alphabetical order by library name. ! 125: ! 126: (autoload 'add-change-log-entry "add-log" ! 127: "\ ! 128: Find change log file and add an entry for today. ! 129: With ARG, prompt for name and site of person." ! 130: t) ! 131: ! 132: (autoload 'occur-menu "aton" ! 133: "\ ! 134: Show menu of lines containing match for REGEXP. ! 135: Enters recursive edit on text showing an entry for each matching line. ! 136: User can move to an entry and then exit with \\[exit-recursive-edit] to ! 137: move to the line in the original buffer described by the selected entry. ! 138: Abort with \\[abort-recursive-edit] to avoid moving in the original buffer. ! 139: ! 140: If REGEXP is empty then THE EXACT SAME menu is presented again, ! 141: with cursor initially at the next successive entry. ! 142: This is useful for stepping through located lines rapidly in order." ! 143: t) ! 144: ! 145: (autoload '\` "backquote" ! 146: "\ ! 147: (` FORM) Expands to a form that will generate FORM. ! 148: FORM is `almost quoted' -- see backquote.el for a description." ! 149: nil t) ! 150: ! 151: (autoload 'byte-compile-file "bytecomp" ! 152: "\ ! 153: Compile a file of Lisp code named FILENAME into a file of byte code. ! 154: The output file's name is made by appending \"c\" to the end of FILENAME." ! 155: t) ! 156: ! 157: (autoload 'byte-recompile-directory "bytecomp" ! 158: "\ ! 159: Recompile every .el file in DIRECTORY that needs recompilation. ! 160: This is if a .elc file exists but is older than the .el file. ! 161: If the .elc file does not exist, offer to compile the .el file ! 162: only if a prefix argument has been specified." ! 163: t) ! 164: ! 165: (autoload 'batch-byte-compile "bytecomp" ! 166: "\ ! 167: Runs byte-compile-file on the files remaining on the command line. ! 168: Must be used only with -batch, and kills emacs on completion. ! 169: Each file will be processed even if an error occurred previously. ! 170: For example, invoke \"emacs -batch -f batch-byte-compile $emacs/ ~/*.el\"" ! 171: nil) ! 172: ! 173: ! 174: (autoload 'list-command-history "chistory" ! 175: "\ ! 176: List history of commands typed to minibuffer. ! 177: The number of commands listed is controlled by list-command-history-max. ! 178: Calls value of list-command-history-filter (if non-nil) on each history ! 179: element to judge if that element should be excluded from the list. ! 180: ! 181: The buffer is left in Command History mode." ! 182: t) ! 183: ! 184: (autoload 'command-history-mode "chistory" ! 185: "\ ! 186: Major mode for examining commands from command-history. ! 187: The number of commands listed is controlled by list-command-history-max. ! 188: The command history is filtered by list-command-history-filter if non-nil. ! 189: ! 190: Like Emacs-Lisp Mode except that characters do not insert themselves and ! 191: Digits provide prefix arguments. Tab does not indent. Instead these ! 192: commands are provided: ! 193: LF, CR Move to the next line in the history. ! 194: Delete Move to the previous line in the history. ! 195: ! 196: Calls the value of command-history-hook if that is non-nil ! 197: The Command History listing is recomputed each time this mode is ! 198: invoked." ! 199: t) ! 200: ! 201: (autoload 'repeat-matching-complex-command "chistory" ! 202: "\ ! 203: Edit and re-evaluate complex command with name matching PATTERN. ! 204: Matching occurrences are displayed, most recent first, until you ! 205: select a form for evaluation. If PATTERN is empty (or nil), every form ! 206: in the command history is offered. The form is placed in the minibuffer ! 207: for editing and the result is evaluated. Prefix args don't count." ! 208: t) ! 209: ! 210: ! 211: (autoload 'compare-windows "compare-w" ! 212: "\ ! 213: Compare text in current window with text in next window. ! 214: Compares the text starting at point in each window, ! 215: moving over text in each one as fas as they match." ! 216: t) ! 217: ! 218: (autoload 'compile "compile" ! 219: "\ ! 220: Compile the program including the current buffer. Default: run `make'. ! 221: Runs COMMAND, a shell command, in a separate process asynchronously ! 222: with output going to the buffer *compilation*. ! 223: You can then use the command \\[next-error] to find the next error message ! 224: and move to the source code that caused it." ! 225: t) ! 226: ! 227: (autoload 'grep "compile" ! 228: "\ ! 229: Run grep, with user-specified args, and collect output in a buffer. ! 230: While grep runs asynchronously, you can use the \\[next-error] command ! 231: to find the text that grep hits refer to." ! 232: t) ! 233: ! 234: (define-key ctl-x-map "`" 'next-error) ! 235: ! 236: (autoload 'next-error "compile" ! 237: "\ ! 238: Visit next compilation error message and corresponding source code. ! 239: This operates on the output from the \\[compile] command. ! 240: If all preparsed error messages have been processed, ! 241: the error message buffer is checked for new ones. ! 242: A non-nil argument (prefix arg, if interactive) ! 243: means reparse the error message buffer and start at the first error." ! 244: t) ! 245: ! 246: (autoload 'debug "debug" ! 247: "\ ! 248: Enter debugger. Returns if user says \"continue\". ! 249: Arguments are mainly for use when this is called ! 250: from the internals of the evaluator. ! 251: You may call with no args, or you may ! 252: pass nil as the first arg and any other args you like. ! 253: In that case, the list of args after the first will ! 254: be printed into the backtrace buffer.") ! 255: ! 256: (autoload 'cancel-debug-on-entry "debug" ! 257: "\ ! 258: Undoes effect of debug-on-entry on FUNCTION." ! 259: t) ! 260: ! 261: (autoload 'debug-on-entry "debug" ! 262: "\ ! 263: Request FUNCTION to invoke debugger each time it is called. ! 264: If the user continues, FUNCTION's execution proceeds. ! 265: Works by modifying the definition of FUNCTION, ! 266: which must be written in Lisp, not predefined." ! 267: t) ! 268: ! 269: (define-key ctl-x-map "d" 'dired) ! 270: ! 271: (autoload 'dired "dired" ! 272: "\ ! 273: \"Edit\" directory DIRNAME. Delete some files in it. ! 274: Dired displays a list of files in DIRNAME. ! 275: You can move around in it with the usual commands. ! 276: You can flag files for deletion with C-d ! 277: and then delete them by typing `x'. ! 278: Type `h' after entering dired for more info." ! 279: t) ! 280: ! 281: (define-key ctl-x-4-map "d" 'dired-other-window) ! 282: ! 283: (autoload 'dired-other-window "dired" ! 284: "\ ! 285: \"Edit\" directory DIRNAME. Like \\[dired] but selects in another window." ! 286: t) ! 287: ! 288: (autoload 'dired-noselect "dired" ! 289: "\ ! 290: Find or create a dired buffer, return it, don't select it. ! 291: Call like dired.") ! 292: ! 293: (autoload 'dissociated-press "dissociate" ! 294: "\ ! 295: Dissociate the text of the current buffer. ! 296: Output goes in buffer named *Dissociation*, ! 297: which is redisplayed each time text is added to it. ! 298: Every so often the user must say whether to continue. ! 299: If ARG is positive, require ARG words of continuity. ! 300: If ARG is negative, require -ARG chars of continuity. ! 301: Default is 2." t) ! 302: ! 303: (autoload 'doctor "doctor" ! 304: "\ ! 305: Switch to *doctor* buffer and start giving psychotherapy." ! 306: t) ! 307: ! 308: (autoload 'electric-buffer-list "ebuff-menu" ! 309: "\ ! 310: Vaguely like ITS lunar select buffer; ! 311: combining typeoutoid buffer listing with menuoid buffer selection. ! 312: This pops up a buffer describing the set of emacs buffers. ! 313: If the very next character typed is a space then the buffer list is killed. ! 314: ! 315: Otherwise, one may use \\[next-line] and \\[previous-line] to move around in the buffer list window ! 316: and select a buffer by typing Space when the cursor is on the ! 317: appropriate line of the buffer-list window. ! 318: Other commands are much like those of buffer-menu-mode. ! 319: Type C-h after calling \\[electric-buffer-list] for more information. ! 320: ! 321: Calls the value of electric-buffer-menu-mode-hook if that is non-nil." ! 322: t) ! 323: ! 324: ! 325: (autoload 'electric-command-history "echistory" ! 326: "\ ! 327: Major mode for examining and redoing commands from command-history. ! 328: The number of command listed is controlled by list-command-history-max. ! 329: The command history is filtered by list-command-history-filter if non-nil. ! 330: Combines typeout Command History list window with menu like selection ! 331: of an expression from the history for re-evaluation in the *original* buffer. ! 332: ! 333: The history displayed is filtered by list-command-history-filter if non-nil. ! 334: ! 335: This pops up a window with the Command History listing. If the very ! 336: next character typed is Space, the listing is killed and the previous ! 337: window configuration is restored. Otherwise, you can browse in the ! 338: Command History with Return moving down and Delete moving up, possibly ! 339: selecting an expression to be redone with Space or quitting with `Q'. ! 340: ! 341: Like Emacs-Lisp Mode except that characters do not insert themselves and ! 342: Tab and linefeed do not indent. Instead these commands are provided: ! 343: Space or ! edit then evaluate current line in history inside ! 344: the ORIGINAL buffer which invoked this mode. ! 345: The previous window configuration is restored ! 346: unless the invoked command changes it. ! 347: C-c C-c, C-], Q Quit and restore previous window configuration. ! 348: LF, CR Move to the next line in the history. ! 349: Delete Move to the previous line in the history. ! 350: ? Provides a complete list of commands. ! 351: ! 352: Calls the value of electric-command-history-hook if that is non-nil ! 353: The Command History listing is recomputed each time this mode is invoked." ! 354: t) ! 355: ! 356: (autoload 'hanoi "hanoi" ! 357: "\ ! 358: Towers of Hanoi diversion. Arg is number of rings." ! 359: t) ! 360: ! 361: (autoload 'Helper-help "helper" ! 362: "\ ! 363: Provide help for current mode." ! 364: t) ! 365: ! 366: (autoload 'Helper-describe-bindings "helper" ! 367: "\ ! 368: Describe local key bindings of current mode." ! 369: t) ! 370: ! 371: ! 372: (autoload 'info "info" ! 373: "\ ! 374: Enter Info documentation browser." ! 375: t) ! 376: ! 377: (autoload 'ledit-mode "ledit" ! 378: "\ ! 379: Major mode for editing text and stuffing it to a Lisp job. ! 380: Like Lisp mode, plus these special commands: ! 381: M-C-d -- record defun at or after point ! 382: for later transmission to Lisp job. ! 383: M-C-r -- record region for later transmission to Lisp job. ! 384: C-x z -- transfer to Lisp job and transmit saved text. ! 385: M-C-c -- transfer to Liszt (Lisp compiler) job ! 386: and transmit saved text. ! 387: To make Lisp mode automatically change to Ledit mode, ! 388: do (setq lisp-mode-hook 'ledit-from-lisp-mode)" ! 389: t) ! 390: ! 391: (autoload 'ledit-from-lisp-mode "ledit") ! 392: ! 393: (autoload 'run-lisp "shell" ! 394: "\ ! 395: Run an inferior Lisp process, input and output via buffer *lisp*." ! 396: t) ! 397: ! 398: (autoload 'lpr-buffer "lpr" ! 399: "\ ! 400: Print contents of buffer as with Unix command `lpr'. ! 401: `lpr-switches' is a list of extra switches (strings) to pass to lpr." ! 402: t) ! 403: ! 404: (autoload 'print-buffer "lpr" ! 405: "\ ! 406: Print contents of buffer as with Unix command `lpr -p'. ! 407: `lpr-switches' is a list of extra switches (strings) to pass to lpr." ! 408: t) ! 409: ! 410: (autoload 'lpr-region "lpr" ! 411: "\ ! 412: Print contents of region as with Unix command `lpr'. ! 413: `lpr-switches' is a list of extra switches (strings) to pass to lpr." ! 414: t) ! 415: ! 416: (autoload 'print-region "lpr" ! 417: "\ ! 418: Print contents of region as with Unix command `lpr -p'. ! 419: `lpr-switches' is a list of extra switches (strings) to pass to lpr." ! 420: t) ! 421: ! 422: (autoload 'append-kbd-macro "macros" ! 423: "\ ! 424: Append kbd macro NAME in file FILE, as Lisp code to define the macro. ! 425: Use load to load the file. ! 426: Third argument KEYS non-nil means also record the keys it is on. ! 427: (This is the prefix argument, when calling interactively.)" ! 428: t) ! 429: ! 430: (define-key ctl-x-map "q" 'kbd-macro-query) ! 431: ! 432: (autoload 'kbd-macro-query "macros" ! 433: "\ ! 434: Query user during kbd macro execution. ! 435: With prefix argument, enters recursive edit, ! 436: reading keyboard commands even within a kbd macro. ! 437: You can give different commands each time the macro executes. ! 438: Without prefix argument, reads a character. Your options are: ! 439: Space -- execute the rest of the macro. ! 440: DEL -- skip the rest of the macro; start next repetition. ! 441: C-d -- skip rest of the macro and don't repeat it any more. ! 442: C-r -- enter a recursive edit, then on exit ask again for a character ! 443: C-l -- redisplay screen and ask again." ! 444: t) ! 445: ! 446: (autoload 'write-kbd-macro "macros" ! 447: "\ ! 448: Save kbd macro NAME in file FILE, as Lisp code to define the macro. ! 449: Use load to load the file. ! 450: Third argument KEYS non-nil means also record the keys it is on. ! 451: (This is the prefix argument, when calling interactively.) ! 452: Fourth argument APPENDFLAG non-nil meams append to FILE's existing contents." ! 453: t) ! 454: ! 455: (autoload 'make-command-summary "makesum" ! 456: "\ ! 457: Make a summary of current key bindings in the buffer *Summary*. ! 458: Previous contents of that buffer are killed first." ! 459: t) ! 460: ! 461: (autoload 'define-mail-alias "mailalias" ! 462: "Define NAME as a mail-alias that translates to DEFINITION." ! 463: t) ! 464: ! 465: (autoload 'manual-entry "man" ! 466: "\ ! 467: Display Unix manual entry for TOPIC." ! 468: t) ! 469: ! 470: (autoload 'mh-rmail "mh-e" ! 471: "\ ! 472: Read your mail with mh." t) ! 473: ! 474: (autoload 'mh-smail "mh-e" ! 475: "\ ! 476: Compose and send mail with mh." t) ! 477: ! 478: (autoload 'convert-mocklisp-buffer "mlconvert" ! 479: "\ ! 480: Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." ! 481: t) ! 482: ! 483: (setq disabled-command-hook 'disabled-command-hook) ! 484: ! 485: (autoload 'disabled-command-hook "novice") ! 486: (autoload 'enable-command "novice" ! 487: "\ ! 488: Allow COMMAND to be executed without special confirmation from now on. ! 489: The user's .emacs file is altered so that this will apply ! 490: to future sessions." t) ! 491: ! 492: (autoload 'disable-command "novice" ! 493: "\ ! 494: Require special confirmation to execute COMMAND from now on. ! 495: The user's .emacs file is altered so that this will apply ! 496: to future sessions." t) ! 497: ! 498: (autoload 'nroff-mode "nroff-mode" ! 499: "\ ! 500: Major mode for editing text intended for nroff to format. ! 501: \\{nroff-mode-map} ! 502: Turning on Nroff mode runs text-mode-hook, then nroff-mode-hook. ! 503: Also, try nroff-electric-mode, for automatically inserting ! 504: closing requests for requests that are used in matched pairs." ! 505: t) ! 506: ! 507: (autoload 'list-options "options" ! 508: "\ ! 509: Display a list of Emacs user options, with values and documentation." ! 510: t) ! 511: ! 512: (autoload 'edit-options "options" ! 513: "\ ! 514: Edit a list of Emacs user option values. ! 515: Selects a buffer containing such a list, ! 516: in which there are commands to set the option values. ! 517: Type \\[describe-mode] in that buffer for a list of commands." ! 518: t) ! 519: ! 520: (autoload 'outline-mode "outline" ! 521: "\ ! 522: Set up Emacs for editing an outline, doing selective hiding of text." ! 523: t) ! 524: ! 525: (autoload 'edit-picture "picture" ! 526: "\ ! 527: Switch to Picture mode, in which a quarter-plane screen model is used. ! 528: Printing characters replace instead of inserting themselves with motion ! 529: afterwards settable by these commands: ! 530: M-` Move left after insertion. ! 531: M-' Move right after insertion. ! 532: M-- Move up after insertion. ! 533: M-= Move down after insertion. ! 534: C-c ` Move northwest (nw) after insertion. ! 535: C-c ' Move northeast (ne) after insertion. ! 536: C-c / Move southwest (sw) after insertion. ! 537: C-c \\ Move southeast (se) after insertion. ! 538: The current direction is displayed in the mode line. The initial ! 539: direction is right. Whitespace is inserted and tabs are changed to ! 540: spaces when required by movement. You can move around in the buffer ! 541: with these commands: ! 542: C-p Move vertically to SAME column in previous line. ! 543: C-n Move vertically to SAME column in next line. ! 544: C-e Move to column following last non-whitespace character. ! 545: C-f Move right inserting spaces if required. ! 546: C-b Move left changing tabs to spaces if required. ! 547: C-c C-f Move in direction of current picture motion. ! 548: C-c C-b Move in opposite direction of current picture motion. ! 549: Return Move to beginning of next line. ! 550: You can edit tabular text with these commands: ! 551: M-Tab Move to column beneath (or at) next interesting charecter. ! 552: `Indents' relative to a previous line. ! 553: Tab Move to next stop in local tab stop list. ! 554: C-c Tab Set tab stops according to context of this line. ! 555: With ARG resets tab stops to default (global) value. ! 556: See also documentation of variable picture-tab-chars ! 557: which defines \"interesting character\". You can manually ! 558: change the tab stop list with command \\[edit-tab-stops]. ! 559: You can manipulate text with these commands: ! 560: C-d Clear (replace) ARG columns after point without moving. ! 561: C-c C-d Delete char at point - the command normally assigned to C-d. ! 562: Delete Clear (replace) ARG columns before point, moving back over them. ! 563: C-k Clear ARG lines, advancing over them. The cleared ! 564: text is saved in the kill ring. ! 565: C-o Open blank line(s) beneath current line. ! 566: You can manipulate rectangles with these commands: ! 567: C-c C-k Clear (or kill) a rectangle and save it. ! 568: C-c k Like C-c C-k except rectangle is saved in named register. ! 569: C-c C-y Overlay (or insert) currently saved rectangle at point. ! 570: C-c y Like C-c C-y except rectangle is taken from named register. ! 571: \\[copy-rectangle-to-register] Copies a rectangle to a register. ! 572: \\[advertised-undo] Can undo effects of rectangle overlay commands ! 573: commands if invoked soon enough. ! 574: You can return to the previous mode with: ! 575: C-c C-c Which also strips trailing whitespace from every line. ! 576: Stripping is suppressed by supplying an argument. ! 577: ! 578: Entry to this mode calls the value of edit-picture-hook if non-nil. ! 579: ! 580: Note that Picture mode commands will work outside of Picture mode, but ! 581: they are not defaultly assigned to keys." ! 582: t) ! 583: ! 584: (fset 'picture-mode 'edit-picture) ! 585: ! 586: (autoload 'clear-rectangle "rect" ! 587: "\ ! 588: Blank out rectangle with corners at point and mark. ! 589: The text previously in the region is overwritten by the blanks." ! 590: t) ! 591: ! 592: (autoload 'delete-rectangle "rect" ! 593: "\ ! 594: Delete (don't save) text in rectangle with point and mark as corners. ! 595: The same range of columns is deleted in each line ! 596: starting with the line where the region begins ! 597: and ending with the line where the region ends." ! 598: t) ! 599: ! 600: (autoload 'delete-extract-rectangle "rect" ! 601: "\ ! 602: Return and delete contents of rectangle with corners at START and END. ! 603: Value is list of strings, one for each line of the rectangle.") ! 604: ! 605: (autoload 'extract-rectangle "rect" ! 606: "\ ! 607: Return contents of rectangle with corners at START and END. ! 608: Value is list of strings, one for each line of the rectangle.") ! 609: ! 610: (autoload 'insert-rectangle "rect" ! 611: "\ ! 612: Insert text of RECTANGLE with upper left corner at point. ! 613: RECTANGLE's first line is inserted at point, ! 614: its second line is inserted at a point vertically under point, etc. ! 615: RECTANGLE should be a list of strings.") ! 616: ! 617: (autoload 'kill-rectangle "rect" ! 618: "\ ! 619: Delete rectangle with corners at point and mark; save as last killed one. ! 620: Calling from program, supply two args START and END, buffer positions. ! 621: But in programs you might prefer to use delete-extract-rectangle." ! 622: t) ! 623: ! 624: (autoload 'open-rectangle "rect" ! 625: "\ ! 626: Blank out rectangle with corners at point and mark, shifting text right. ! 627: The text previously in the region is not overwritten by the blanks, ! 628: but insted winds up to the right of the rectangle." ! 629: t) ! 630: ! 631: (autoload 'yank-rectangle "rect" ! 632: "\ ! 633: Yank the last killed rectangle with upper left corner at point." ! 634: t) ! 635: ! 636: (autoload 'rnews "rnews" ! 637: "\ ! 638: Read netnews for groups for which you are a member and add or delete groups. ! 639: You can reply to articles posted and send articles to any group. ! 640: Type \\[describe-mode] once reading news to get a list of rnews commands." ! 641: t) ! 642: ! 643: (autoload 'rmail "rmail" ! 644: "\ ! 645: Read and edit incoming mail. ! 646: Moves messages into file named by rmail-file-name (a babyl format file) ! 647: and edits that file in Rmail Mode. ! 648: Type \\[describe-mode] once editing that file, for a list of Rmail commands. ! 649: ! 650: May be called with filename as argument; ! 651: then performs rmail editing on that file, ! 652: but does not copy any new mail into the file." ! 653: t) ! 654: ! 655: (defconst rmail-dont-reply-to-names ! 656: nil ;(concat (getenv "USER")) ! 657: "*A regular expression specifying names to prune in replying to messages. ! 658: nil means dont reply to yourself.") ! 659: ! 660: (defconst rmail-ignored-headers ! 661: "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^[a-z-]*message-id:\\|^summary-line:" ! 662: "*Gubbish headers one would rather not see.") ! 663: ! 664: (defvar rmail-delete-after-output nil ! 665: "*Non-nil means automatically delete a message that is copied to a file.") ! 666: ! 667: ;;; Others are in paths.el. ! 668: ! 669: ! 670: (autoload 'scheme-mode "scheme" ! 671: "\ ! 672: Set up things for editing scheme code, ! 673: or for running emacs as an inferior editor under scheme ! 674: to edit and zap functions." ! 675: t) ! 676: ! 677: ! 678: ;; Useful to set in site-init.el ! 679: (defconst send-mail-function 'sendmail-send-it ! 680: "Function to call to send the current buffer as mail. ! 681: The headers are delimited by a string found in mail-header-separator.") ! 682: ! 683: (defconst mail-self-blind nil ! 684: "*Non-nil means insert BCC to self in messages to be sent. ! 685: This is done when the message is initialized, ! 686: so you can remove or alter the BCC field to override the default.") ! 687: ! 688: (defconst mail-interactive nil ! 689: "*Non-nil means when sending a message wait for and display errors. ! 690: nil means let mailer mail back a message to report errors.") ! 691: ! 692: (defconst mail-yank-ignored-headers ! 693: "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^[a-z-]*message-id:\\|^summary-line:\\|^to:\\|^cc:\\|^subject:\\|^in-reply-to:\\|^return-path:" ! 694: "Delete these headers from old message when it's inserted in a reply.") ! 695: ! 696: (defconst mail-header-separator "--text follows this line--" ! 697: "*Line used to separate headers from text in messages being composed.") ! 698: ! 699: (defconst mail-archive-file-name nil ! 700: "*Name of file to write all outgoing messages in, or nil for none.") ! 701: ! 702: (defvar mail-aliases t ! 703: "Alias of mail address aliases, ! 704: or t meaning should be initialized from .mailrc.") ! 705: ! 706: (autoload 'mail-other-window "sendmail" ! 707: "\ ! 708: Like mail command but displays in other window." ! 709: t) ! 710: ! 711: (autoload 'mail "sendmail" ! 712: "\ ! 713: Edit a message to be sent. Argument means resume editing (don't erase). ! 714: Returns with message buffer selected; value t if message freshly initialized. ! 715: While editing message, type C-c C-c to send the message and exit. ! 716: ! 717: Various special commands starting with C-c are available in sendmail mode ! 718: to move to message header fields. Type C-c ? for a list of them. ! 719: ! 720: If mail-self-blind is non-nil, a bcc to yourself is inserted ! 721: when the message is initialized. ! 722: ! 723: If mail-setup-hook is bound, its value is called with no arguments ! 724: after the message is initialized. It can add more default fields. ! 725: ! 726: When calling from a program, the second through fifth arguments ! 727: TO, SUBJECT, CC and IN-REPLY-TO specify if non-nil ! 728: the initial contents of those header fields. ! 729: These arguments should not have final newlines. ! 730: The sixth argument REPLYBUFFER is a buffer whose contents ! 731: should be yanked if the user types C-c y." ! 732: t) ! 733: ! 734: (define-key ctl-x-4-map "m" 'mail-other-window) ! 735: (define-key ctl-x-map "m" 'mail) ! 736: ! 737: ! 738: (autoload 'shell "shell" ! 739: "\ ! 740: Run an inferior shell, with I/O through buffer *shell*. ! 741: If buffer exists but shell process is not running, make new shell. ! 742: The buffer is put in shell-mode, giving commands for sending input ! 743: and controlling the subjobs of the shell. See shell-mode." ! 744: t) ! 745: ! 746: (autoload 'spell-buffer "spell" ! 747: "\ ! 748: Check spelling of every word in the buffer. ! 749: For each incorrect word, you are asked for the correct spelling ! 750: and then put into a query-replace to fix some or all occurrences. ! 751: If you do not want to change a word, just give the same word ! 752: as its \"correct\" spelling; then the query replace is skipped." ! 753: t) ! 754: ! 755: (autoload 'spell-region "spell" ! 756: "\ ! 757: Like spell-buffer but applies only to region. ! 758: From program, applies from START to END." ! 759: t) ! 760: ! 761: (define-key esc-map "$" 'spell-word) ! 762: (autoload 'spell-word "spell" ! 763: "\ ! 764: Check spelling of word at or before point. ! 765: If it is not correct, ask user for the correct spelling ! 766: and query-replace the entire buffer to substitute it." ! 767: t) ! 768: ! 769: (autoload 'spell-string "spell" ! 770: "\ ! 771: Check spelling of string supplied as argument." ! 772: t) ! 773: ! 774: (autoload 'untabify "tabify" ! 775: "\ ! 776: Convert all tabs in region to multiple spaces, preserving columns. ! 777: The variable tab-width controls the action." ! 778: t) ! 779: ! 780: (autoload 'tabify "tabify" ! 781: "\ ! 782: Convert multiple spaces in region to tabs when possible. ! 783: A group of spaces is partially replaced by tabs ! 784: when this can be done without changing the column they end at. ! 785: The variable tab-width controls the action." ! 786: t) ! 787: ! 788: (define-key esc-map "." 'find-tag) ! 789: ! 790: (autoload 'find-tag "tags" ! 791: "\ ! 792: Find next tag (in current tag table) whose name contains TAGNAME. ! 793: Selects the buffer that the tag is contained in ! 794: and puts point at its definition. ! 795: If TAGNAME is a null string, the expression in the buffer ! 796: around or before point is used as the tag name. ! 797: If second arg NEXT is non-nil (interactively, with prefix arg), ! 798: searches for the next tag in the tag table ! 799: that matches the tagname used in the previous find-tag. ! 800: ! 801: See documentation of variable tags-file-name." ! 802: t) ! 803: ! 804: (define-key ctl-x-4-map "." 'find-tag-other-window) ! 805: ! 806: (autoload 'find-tag-other-window "tags" ! 807: "\ ! 808: Find tag (in current tag table) whose name contains TAGNAME. ! 809: Selects the buffer that the tag is contained in ! 810: and puts point at its definition. ! 811: If TAGNAME is a null string, the expression in the buffer ! 812: around or before point is used as the tag name. ! 813: If second arg NEXT is non-nil (interactively, with prefix arg), ! 814: searches for the next tag in the tag table ! 815: that matches the tagname used in the previous find-tag. ! 816: ! 817: See documentation of variable tags-file-name." ! 818: t) ! 819: ! 820: (autoload 'list-tags "tags" ! 821: "\ ! 822: Display list of tags in file FILE." ! 823: t) ! 824: ! 825: (autoload 'next-file "tags" ! 826: "\ ! 827: Select next file among files in current tag table. ! 828: Non-nil argument (prefix arg, if interactive) ! 829: initializes to the beginning of the list of files in the tag table." ! 830: t) ! 831: ! 832: (autoload 'tags-apropos "tags" ! 833: "\ ! 834: Display list of all tags in tag table that contain STRING." ! 835: t) ! 836: ! 837: (define-key esc-map "," 'tags-loop-continue) ! 838: (autoload 'tags-loop-continue "tags" ! 839: "\ ! 840: Continue last tags-search or tags-query-replace command. ! 841: Used noninteractively with non-nil argument ! 842: to begin such a command. See variable tags-loop-form." ! 843: t) ! 844: ! 845: (autoload 'tag-table-files "tags" ! 846: "\ ! 847: Return a list of files in the current tag table.") ! 848: ! 849: (autoload 'tags-query-replace "tags" ! 850: "\ ! 851: Query-replace FROM with TO through all files listed in tag table. ! 852: If you exit (C-G or ESC), you can resume the query-replace ! 853: with the command \\[tags-loop-continue]. ! 854: ! 855: See documentation of variable tags-file-name." ! 856: t) ! 857: ! 858: (autoload 'tags-search "tags" ! 859: "\ ! 860: Search through all files listed in tag table for match for REGEXP. ! 861: Stops when a match is found. ! 862: To continue searching for next match, use command \\[tags-loop-continue]. ! 863: ! 864: See documentation of variable tags-file-name." ! 865: t) ! 866: ! 867: (autoload 'visit-tags-table "tags" ! 868: "\ ! 869: Tell tags commands to use tag table file FILE. ! 870: FILE should be the name of a file created with the `etags' program. ! 871: A directory name is ok too; it means file TAGS in that directory." ! 872: t) ! 873: ! 874: (autoload 'telnet "telnet" ! 875: "\ ! 876: Open a network login connection to host named HOST (a string). ! 877: Communication with HOST is recorded in a buffer *HOST-telnet*. ! 878: Normally input is edited in Emacs and sent a line at a time." ! 879: t) ! 880: ! 881: (autoload 'tex-mode "tex-mode" ! 882: "\ ! 883: Major mode for editing TeX input files.\n\ ! 884: Activates $ and \" with TeX meaning, makes ()[]{} have proper syntax.\n\ ! 885: M-$ erects barrier to speed up matching $ searches.\n\ ! 886: Turning on TeX-mode calls the value of the variable TeX-mode-hook,\n\ ! 887: if that value is non-nil." ! 888: t) ! 889: (fset 'TeX-mode 'tex-mode) ! 890: ! 891: (autoload 'texinfo-format-buffer "texinfo" ! 892: "\ ! 893: Process the current buffer as texinfo code, into an Info file. ! 894: The Info file output is generated in a buffer ! 895: visiting the Info file name specified in the @setfilename command." ! 896: t) ! 897: ! 898: (autoload 'texinfo-mode "texinfo" ! 899: "\ ! 900: Major mode for editing texinfo files. ! 901: These are files that are input for TEX and also to be turned ! 902: into Info files by M-x texinfo-format-buffer. ! 903: These files must be written in a very restricted and ! 904: modified version of TEX input format. ! 905: ! 906: As for editing commands, like text-mode except for syntax table, ! 907: which is set up so expression commands skip texinfo bracket groups." ! 908: t) ! 909: ! 910: (autoload 'display-time "time" ! 911: "\ ! 912: Display current time and load level in mode line of each buffer. ! 913: Updates automatically every minute." ! 914: t) ! 915: ! 916: (autoload 'underline-region "underline" ! 917: "\ ! 918: Underline all nonblank characters in the region. ! 919: Works by overstriking underscores. ! 920: Called from program, takes two arguments START and END ! 921: which specify the range to operate on." ! 922: t) ! 923: ! 924: (autoload 'ununderline-region "underline" ! 925: "\ ! 926: Remove all underlining (overstruck underscores) in the region. ! 927: Called from program, takes two arguments START and END ! 928: which specify the range to operate on." ! 929: t) ! 930: ! 931: (autoload 'ask-user-about-lock "userlock" ! 932: "\ ! 933: Ask user what to do when he wants to edit FILE but it is locked by USER. ! 934: This function has a choice of three things to do: ! 935: do (signal 'buffer-file-locked (list FILE USER)) ! 936: to refrain from editing the file ! 937: return t (grab the lock on the file) ! 938: return nil (edit the file even though it is locked). ! 939: You can rewrite it to use any criterion you like to choose which one to do." ! 940: nil) ! 941: ! 942: (autoload 'view-file "view" ! 943: "\ ! 944: View FILE in View mode, returning to previous buffer when done. ! 945: The usual Emacs commands are not available; instead, ! 946: a special set of commands (mostly letters and punctuation) ! 947: are defined for moving around in the buffer. ! 948: Space scrolls forward, Delete scrolls backward. ! 949: For list of all View commands, type ? or h while viewing. ! 950: ! 951: Calls the value of view-hook if that is non-nil." ! 952: t) ! 953: ! 954: (autoload 'view-buffer "view" ! 955: "\ ! 956: View BUFFER in View mode, returning to previous buffer when done. ! 957: The usual Emacs commands are not available; instead, ! 958: a special set of commands (mostly letters and punctuation) ! 959: are defined for moving around in the buffer. ! 960: Space scrolls forward, Delete scrolls backward. ! 961: For list of all View commands, type ? or h while viewing. ! 962: ! 963: Calls the value of view-hook if that is non-nil." ! 964: t) ! 965: ! 966: (autoload 'view-mode "view" ! 967: "\ ! 968: Major mode for viewing text but not editing it." ! 969: t) ! 970: ! 971: ! 972: (autoload 'yow "yow" ! 973: "Return or display a Zippy quotation" t) ! 974: (autoload 'psychoanalyze-pinhead "yow" ! 975: "Zippy goes to the analyst" t) ! 976: ! 977: ! 978: (define-key esc-map "\C-f" 'forward-sexp) ! 979: (define-key esc-map "\C-b" 'backward-sexp) ! 980: (define-key esc-map "\C-u" 'backward-up-list) ! 981: (define-key esc-map "\C-@" 'mark-sexp) ! 982: (define-key esc-map "\C-d" 'down-list) ! 983: (define-key esc-map "\C-k" 'kill-sexp) ! 984: (define-key esc-map "\C-n" 'forward-list) ! 985: (define-key esc-map "\C-p" 'backward-list) ! 986: (define-key esc-map "\C-a" 'beginning-of-defun) ! 987: (define-key esc-map "\C-e" 'end-of-defun) ! 988: (define-key esc-map "\C-h" 'mark-defun) ! 989: (define-key esc-map "(" 'insert-parentheses) ! 990: (define-key esc-map ")" 'move-past-close-and-reindent) ! 991: ! 992: (define-key ctl-x-map "\C-e" 'eval-last-sexp) ! 993: ! 994: (define-key ctl-x-map "/" 'point-to-register) ! 995: (define-key ctl-x-map "j" 'register-to-point) ! 996: (define-key ctl-x-map "x" 'copy-to-register) ! 997: (define-key ctl-x-map "g" 'insert-register) ! 998: (define-key ctl-x-map "r" 'copy-rectangle-to-register) ! 999: ! 1000: (define-key esc-map "q" 'fill-paragraph) ! 1001: (define-key esc-map "g" 'fill-region) ! 1002: (define-key ctl-x-map "." 'set-fill-prefix) ! 1003: ! 1004: (define-key esc-map "[" 'backward-paragraph) ! 1005: (define-key esc-map "]" 'forward-paragraph) ! 1006: (define-key esc-map "h" 'mark-paragraph) ! 1007: (define-key esc-map "a" 'backward-sentence) ! 1008: (define-key esc-map "e" 'forward-sentence) ! 1009: (define-key esc-map "k" 'kill-sentence) ! 1010: (define-key ctl-x-map "\177" 'backward-kill-sentence) ! 1011: ! 1012: (define-key ctl-x-map "[" 'backward-page) ! 1013: (define-key ctl-x-map "]" 'forward-page) ! 1014: (define-key ctl-x-map "\C-p" 'mark-page) ! 1015: (put 'narrow-to-region 'disabled t) ! 1016: (define-key ctl-x-map "p" 'narrow-to-page) ! 1017: (define-key ctl-x-map "l" 'count-lines-page) ! 1018: ! 1019: (defun isearch-forward () ! 1020: "\ ! 1021: Do incremental search forward. ! 1022: As you type characters, they add to the search string and are found. ! 1023: Type Delete to cancel characters from end of search string. ! 1024: Type ESC to exit, leaving point at location found. ! 1025: Type C-S to search again forward, C-R to search again backward. ! 1026: Type C-W to yank word from buffer onto end of search string and search for it. ! 1027: Type C-Y to yank rest of line onto end of search string, etc. ! 1028: Type C-Q to quote control character to search for it. ! 1029: Other control and meta characters terminate the search ! 1030: and are then executed normally. ! 1031: The above special characters are mostly controlled by parameters; ! 1032: do M-x apropos on search-.*-char to find them. ! 1033: C-G while searching or when search has failed ! 1034: cancels input back to what has been found successfully. ! 1035: C-G when search is successful aborts and moves point to starting point." ! 1036: (interactive) ! 1037: (isearch t)) ! 1038: ! 1039: (defun isearch-forward-regexp () ! 1040: "\ ! 1041: Do incremental search forward for regular expression. ! 1042: Like ordinary incremental search except that your input ! 1043: is treated as a regexp. See isearch-forward for more info." ! 1044: (interactive) ! 1045: (isearch t t)) ! 1046: ! 1047: (defun isearch-backward () ! 1048: "\ ! 1049: Do incremental search backward. ! 1050: See isearch-forward for more information." ! 1051: (interactive) ! 1052: (isearch nil)) ! 1053: ! 1054: (defun isearch-backward-regexp () ! 1055: "\ ! 1056: Do incremental search backward for regular expression. ! 1057: Like ordinary incremental search except that your input ! 1058: is treated as a regexp. See isearch-forward for more info." ! 1059: (interactive) ! 1060: (isearch nil t)) ! 1061: ! 1062: (defvar search-last-string "" ! 1063: "Last string search for by a search command. ! 1064: This does not include direct calls to the primitive search functions, ! 1065: and does not include searches that are aborted.") ! 1066: ! 1067: (defconst search-repeat-char ?\C-s ! 1068: "Character to repeat incremental search forwards.") ! 1069: (defconst search-reverse-char ?\C-r ! 1070: "Character to repeat incremental search backwards.") ! 1071: (defconst search-exit-char ?\e ! 1072: "Character to exit incremental search.") ! 1073: (defconst search-delete-char ?\177 ! 1074: "Character to delete from incremental search string.") ! 1075: (defconst search-quote-char ?\C-q ! 1076: "Character to quote special characters for incremental search.") ! 1077: (defconst search-yank-word-char ?\C-w ! 1078: "Character to pull next word from buffer into search string.") ! 1079: (defconst search-yank-line-char ?\C-y ! 1080: "Character to pull rest of line from buffer into search string.") ! 1081: (defconst search-exit-option t ! 1082: "Non-nil means random control characters terminate incremental search.") ! 1083: ! 1084: (defvar isearch-slow-window-lines 1 ! 1085: "*Number of lines in slow search display windows.") ! 1086: (defvar isearch-slow-speed 1200 ! 1087: "*Highest terminal speed at which to use \"slow\" style incremental search. ! 1088: This is the style where a one-line window is created to show the line ! 1089: that the search has reached.") ! 1090: ! 1091: (autoload 'isearch "isearch") ! 1092: ! 1093: (define-key global-map "\C-s" 'isearch-forward) ! 1094: (define-key global-map "\C-r" 'isearch-backward) ! 1095: (define-key esc-map "\C-s" 'isearch-forward-regexp) ! 1096: ! 1097: (defun query-replace (from-string to-string &optional arg) ! 1098: "\ ! 1099: Replace some occurrences of FROM-STRING with TO-STRING. ! 1100: As each match is found, the user must type a character saying ! 1101: what to do with it. For directions, type \\[help-command] at that time. ! 1102: ! 1103: Preserves case in each replacement if case-replace and case-fold-search ! 1104: are non-nil and FROM-STRING has no uppercase letters. ! 1105: Third arg DELIMITED (prefix arg if interactive) non-nil means replace ! 1106: only matches surrounded by word boundaries." ! 1107: (interactive "sQuery replace: \nsQuery replace %s with: \nP") ! 1108: (perform-replace from-string to-string t nil arg)) ! 1109: ! 1110: (defun query-replace-regexp (regexp to-string &optional arg) ! 1111: "\ ! 1112: Replace some things after point matching REGEXP with TO-STRING. ! 1113: As each match is found, the user must type a character saying ! 1114: what to do with it. For directions, type \\[help-command] at that time. ! 1115: ! 1116: Preserves case in each replacement if case-replace and case-fold-search ! 1117: are non-nil and REGEXP has no uppercase letters. ! 1118: Third arg DELIMITED (prefix arg if interactive) non-nil means replace ! 1119: only matches surrounded by word boundaries. ! 1120: In TO-STRING, \\& means insert what matched REGEXP, ! 1121: and \\<n> means insert what matched <n>th \\(...\\) in REGEXP." ! 1122: (interactive "sQuery replace regexp: \nsQuery replace regexp %s with: \nP") ! 1123: (perform-replace regexp to-string t t arg)) ! 1124: ! 1125: (defun replace-string (from-string to-string &optional delimited) ! 1126: "\ ! 1127: Replace occurrences of FROM-STRING with TO-STRING. ! 1128: Preserve case in each match if case-replace and case-fold-search ! 1129: are non-nil and FROM-STRING has no uppercase letters. ! 1130: Third arg DELIMITED (prefix arg if interactive) non-nil means replace ! 1131: only matches surrounded by word boundaries." ! 1132: (interactive "sReplace string: \nsReplace string %s with: \nP") ! 1133: (perform-replace from-string to-string nil nil delimited)) ! 1134: ! 1135: (defun replace-regexp (regexp to-string &optional delimited) ! 1136: "\ ! 1137: Replace things after point matching REGEXP with TO-STRING. ! 1138: Preserve case in each match if case-replace and case-fold-search ! 1139: are non-nil and REGEXP has no uppercase letters. ! 1140: Third arg DELIMITED (prefix arg if interactive) non-nil means replace ! 1141: only matches surrounded by word boundaries. ! 1142: In TO-STRING, \\& means insert what matched REGEXP, ! 1143: and \\<n> means insert what matched <n>th \\(...\\) in REGEXP." ! 1144: (interactive "sReplace regexp: \nsReplace regexp %s with: \nP") ! 1145: (perform-replace regexp to-string nil t delimited)) ! 1146: ! 1147: (define-key esc-map "%" 'query-replace) ! 1148: ! 1149: (autoload 'perform-replace "replace") ! 1150: ! 1151: (define-key ctl-x-map "\C-a" 'add-mode-abbrev) ! 1152: (define-key ctl-x-map "\+" 'add-global-abbrev) ! 1153: (define-key ctl-x-map "\C-h" 'inverse-add-mode-abbrev) ! 1154: (define-key ctl-x-map "\-" 'inverse-add-global-abbrev) ! 1155: (define-key esc-map "'" 'abbrev-prefix-mark)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.