diff options
| author | Paul Eggert | 2011-07-11 18:39:28 +0000 |
|---|---|---|
| committer | Paul Eggert | 2011-07-11 18:39:28 +0000 |
| commit | e9eb6f14fe334d0e37d2037c952e6541eeb242ad (patch) | |
| tree | 7087ce37a1e6233093f80a4fa653e91a1f96529c | |
| parent | e3c25c689524aa85ce37840fff344cc297cf42ec (diff) | |
| parent | 07151e498ff9174518675e14b619aca4b8307733 (diff) | |
| download | emacs-e9eb6f14fe334d0e37d2037c952e6541eeb242ad.tar.gz emacs-e9eb6f14fe334d0e37d2037c952e6541eeb242ad.zip | |
Merge from trunk.
| -rw-r--r-- | doc/emacs/ChangeLog | 8 | ||||
| -rw-r--r-- | doc/emacs/emacs.texi | 14 | ||||
| -rw-r--r-- | doc/emacs/killing.texi | 3 | ||||
| -rw-r--r-- | doc/emacs/kmacro.texi | 4 | ||||
| -rw-r--r-- | doc/emacs/mark.texi | 9 | ||||
| -rw-r--r-- | doc/emacs/regs.texi | 26 | ||||
| -rw-r--r-- | doc/lispref/ChangeLog | 13 | ||||
| -rw-r--r-- | doc/lispref/commands.texi | 2 | ||||
| -rw-r--r-- | doc/lispref/frames.texi | 11 | ||||
| -rw-r--r-- | doc/lispref/syntax.texi | 2 | ||||
| -rw-r--r-- | lisp/ChangeLog | 29 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 2 | ||||
| -rw-r--r-- | lisp/dired-x.el | 17 | ||||
| -rw-r--r-- | lisp/files.el | 2 | ||||
| -rw-r--r-- | lisp/loadhist.el | 32 | ||||
| -rw-r--r-- | lisp/mh-e/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/printing.el | 17 | ||||
| -rw-r--r-- | lisp/subr.el | 11 | ||||
| -rw-r--r-- | lisp/vc/ediff.el | 2 | ||||
| -rw-r--r-- | src/ChangeLog | 8 | ||||
| -rw-r--r-- | src/term.c | 49 | ||||
| -rw-r--r-- | src/xdisp.c | 4 |
22 files changed, 156 insertions, 111 deletions
diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog index ae732a7db0f..8a275b9e359 100644 --- a/doc/emacs/ChangeLog +++ b/doc/emacs/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2011-07-11 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * mark.texi (Setting Mark): Clarify what's meant by "Shifted | ||
| 4 | motion keys" (bug#3503). | ||
| 5 | |||
| 6 | * emacs.texi: Change all the register node names from "RegPos" | ||
| 7 | (etc.) to "Positional Registers" (etc.) (bug#3314). | ||
| 8 | |||
| 1 | 2011-07-11 Chong Yidong <cyd@stupidchicken.com> | 9 | 2011-07-11 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 10 | ||
| 3 | * killing.texi (Killing, Deletion and Killing, Killing by Lines) | 11 | * killing.texi (Killing, Deletion and Killing, Killing by Lines) |
diff --git a/doc/emacs/emacs.texi b/doc/emacs/emacs.texi index a35736f4fe7..2591f56a168 100644 --- a/doc/emacs/emacs.texi +++ b/doc/emacs/emacs.texi | |||
| @@ -338,13 +338,13 @@ Killing and Yanking on Graphical Displays | |||
| 338 | 338 | ||
| 339 | Registers | 339 | Registers |
| 340 | 340 | ||
| 341 | * RegPos:: Saving positions in registers. | 341 | * Position Registers:: Saving positions in registers. |
| 342 | * RegText:: Saving text in registers. | 342 | * Text Registers:: Saving text in registers. |
| 343 | * RegRect:: Saving rectangles in registers. | 343 | * Rectangle Registers:: Saving rectangles in registers. |
| 344 | * RegConfig:: Saving window configurations in registers. | 344 | * Configuration Registers:: Saving window configurations in registers. |
| 345 | * RegNumbers:: Numbers in registers. | 345 | * Number Registers:: Numbers in registers. |
| 346 | * RegFiles:: File names in registers. | 346 | * File Registers:: File names in registers. |
| 347 | * Bookmarks:: Bookmarks are like registers, but persistent. | 347 | * Bookmarks:: Bookmarks are like registers, but persistent. |
| 348 | 348 | ||
| 349 | Controlling the Display | 349 | Controlling the Display |
| 350 | 350 | ||
diff --git a/doc/emacs/killing.texi b/doc/emacs/killing.texi index 38124fc315a..6be40c85832 100644 --- a/doc/emacs/killing.texi +++ b/doc/emacs/killing.texi | |||
| @@ -758,8 +758,7 @@ rectangle and then yank it beside the first line of the list. | |||
| 758 | @xref{Two-Column}, for another way to edit multi-column text. | 758 | @xref{Two-Column}, for another way to edit multi-column text. |
| 759 | 759 | ||
| 760 | You can also copy rectangles into and out of registers with @kbd{C-x r | 760 | You can also copy rectangles into and out of registers with @kbd{C-x r |
| 761 | r @var{r}} and @kbd{C-x r i @var{r}}. @xref{RegRect,,Rectangle | 761 | r @var{r}} and @kbd{C-x r i @var{r}}. @xref{Rectangle Registers}. |
| 762 | Registers}. | ||
| 763 | 762 | ||
| 764 | @kindex C-x r o | 763 | @kindex C-x r o |
| 765 | @findex open-rectangle | 764 | @findex open-rectangle |
diff --git a/doc/emacs/kmacro.texi b/doc/emacs/kmacro.texi index c52381a663c..ac81377aec9 100644 --- a/doc/emacs/kmacro.texi +++ b/doc/emacs/kmacro.texi | |||
| @@ -332,8 +332,8 @@ numbers stored in registers. | |||
| 332 | 332 | ||
| 333 | If you use a register as a counter, incrementing it on each | 333 | If you use a register as a counter, incrementing it on each |
| 334 | repetition of the macro, that accomplishes the same thing as a | 334 | repetition of the macro, that accomplishes the same thing as a |
| 335 | keyboard macro counter. @xref{RegNumbers}. For most purposes, it is | 335 | keyboard macro counter. @xref{Number Registers}. For most purposes, |
| 336 | simpler to use a keyboard macro counter. | 336 | it is simpler to use a keyboard macro counter. |
| 337 | 337 | ||
| 338 | @node Keyboard Macro Query | 338 | @node Keyboard Macro Query |
| 339 | @section Executing Macros with Variations | 339 | @section Executing Macros with Variations |
diff --git a/doc/emacs/mark.texi b/doc/emacs/mark.texi index b426020b7c6..6d3ed351e43 100644 --- a/doc/emacs/mark.texi +++ b/doc/emacs/mark.texi | |||
| @@ -68,10 +68,11 @@ Set point and the mark around the text you drag across. | |||
| 68 | @item Mouse-3 | 68 | @item Mouse-3 |
| 69 | Set the mark at point, then move point to where you click | 69 | Set the mark at point, then move point to where you click |
| 70 | (@code{mouse-save-then-kill}). | 70 | (@code{mouse-save-then-kill}). |
| 71 | @item @samp{Shifted motion keys} | ||
| 72 | Set the mark at point if the mark is inactive, then move point. | ||
| 73 | @end table | 71 | @end table |
| 74 | 72 | ||
| 73 | Also, the shifted motion keys (for example, @key{S-Right}) will set | ||
| 74 | the mark at point if the mark is inactive, then move point. | ||
| 75 | |||
| 75 | @kindex C-SPC | 76 | @kindex C-SPC |
| 76 | @kindex C-@@ | 77 | @kindex C-@@ |
| 77 | @findex set-mark-command | 78 | @findex set-mark-command |
| @@ -307,8 +308,8 @@ is non-@code{nil} by default. | |||
| 307 | 308 | ||
| 308 | If you want to move back to the same place over and over, the mark | 309 | If you want to move back to the same place over and over, the mark |
| 309 | ring may not be convenient enough. If so, you can record the position | 310 | ring may not be convenient enough. If so, you can record the position |
| 310 | in a register for later retrieval (@pxref{RegPos,, Saving Positions in | 311 | in a register for later retrieval (@pxref{Position Registers,, Saving |
| 311 | Registers}). | 312 | Positions in Registers}). |
| 312 | 313 | ||
| 313 | @node Global Mark Ring | 314 | @node Global Mark Ring |
| 314 | @section The Global Mark Ring | 315 | @section The Global Mark Ring |
diff --git a/doc/emacs/regs.texi b/doc/emacs/regs.texi index 42ce85c7ee1..b4b9fd252e1 100644 --- a/doc/emacs/regs.texi +++ b/doc/emacs/regs.texi | |||
| @@ -35,16 +35,16 @@ Bookmarks are similar enough in spirit to registers that they | |||
| 35 | seem to belong in this chapter. | 35 | seem to belong in this chapter. |
| 36 | 36 | ||
| 37 | @menu | 37 | @menu |
| 38 | * Position: RegPos. Saving positions in registers. | 38 | * Position Registers:: Saving positions in registers. |
| 39 | * Text: RegText. Saving text in registers. | 39 | * Text Registers:: Saving text in registers. |
| 40 | * Rectangle: RegRect. Saving rectangles in registers. | 40 | * Rectangle Registers:: Saving rectangles in registers. |
| 41 | * Configurations: RegConfig. Saving window configurations in registers. | 41 | * Configuration Registers:: Saving window configurations in registers. |
| 42 | * Numbers: RegNumbers. Numbers in registers. | 42 | * Number Registers:: Numbers in registers. |
| 43 | * Files: RegFiles. File names in registers. | 43 | * File Registers:: File names in registers. |
| 44 | * Bookmarks:: Bookmarks are like registers, but persistent. | 44 | * Bookmarks:: Bookmarks are like registers, but persistent. |
| 45 | @end menu | 45 | @end menu |
| 46 | 46 | ||
| 47 | @node RegPos | 47 | @node Position Registers |
| 48 | @section Saving Positions in Registers | 48 | @section Saving Positions in Registers |
| 49 | @cindex saving position in a register | 49 | @cindex saving position in a register |
| 50 | 50 | ||
| @@ -76,7 +76,7 @@ was saved from has been killed, @kbd{C-x r j} tries to create the buffer | |||
| 76 | again by visiting the same file. Of course, this works only for buffers | 76 | again by visiting the same file. Of course, this works only for buffers |
| 77 | that were visiting files. | 77 | that were visiting files. |
| 78 | 78 | ||
| 79 | @node RegText | 79 | @node Text Registers |
| 80 | @section Saving Text in Registers | 80 | @section Saving Text in Registers |
| 81 | @cindex saving text in a register | 81 | @cindex saving text in a register |
| 82 | 82 | ||
| @@ -123,7 +123,7 @@ the region text to the text in the register instead of | |||
| 123 | after, but with a numeric argument (@kbd{C-u}) it puts point after the | 123 | after, but with a numeric argument (@kbd{C-u}) it puts point after the |
| 124 | text and the mark before. | 124 | text and the mark before. |
| 125 | 125 | ||
| 126 | @node RegRect | 126 | @node Rectangle Registers |
| 127 | @section Saving Rectangles in Registers | 127 | @section Saving Rectangles in Registers |
| 128 | @cindex saving rectangle in a register | 128 | @cindex saving rectangle in a register |
| 129 | 129 | ||
| @@ -150,7 +150,7 @@ one. | |||
| 150 | See also the command @code{sort-columns}, which you can think of | 150 | See also the command @code{sort-columns}, which you can think of |
| 151 | as sorting a rectangle. @xref{Sorting}. | 151 | as sorting a rectangle. @xref{Sorting}. |
| 152 | 152 | ||
| 153 | @node RegConfig | 153 | @node Configuration Registers |
| 154 | @section Saving Window Configurations in Registers | 154 | @section Saving Window Configurations in Registers |
| 155 | @cindex saving window configuration in a register | 155 | @cindex saving window configuration in a register |
| 156 | 156 | ||
| @@ -178,7 +178,7 @@ restore a frame configuration, any existing frames not included in the | |||
| 178 | configuration become invisible. If you wish to delete these frames | 178 | configuration become invisible. If you wish to delete these frames |
| 179 | instead, use @kbd{C-u C-x r j @var{r}}. | 179 | instead, use @kbd{C-u C-x r j @var{r}}. |
| 180 | 180 | ||
| 181 | @node RegNumbers | 181 | @node Number Registers |
| 182 | @section Keeping Numbers in Registers | 182 | @section Keeping Numbers in Registers |
| 183 | @cindex saving number in a register | 183 | @cindex saving number in a register |
| 184 | 184 | ||
| @@ -205,7 +205,7 @@ register contents into the buffer. @kbd{C-x r +} with no numeric | |||
| 205 | argument increments the register value by 1; @kbd{C-x r n} with no | 205 | argument increments the register value by 1; @kbd{C-x r n} with no |
| 206 | numeric argument stores zero in the register. | 206 | numeric argument stores zero in the register. |
| 207 | 207 | ||
| 208 | @node RegFiles | 208 | @node File Registers |
| 209 | @section Keeping File Names in Registers | 209 | @section Keeping File Names in Registers |
| 210 | @cindex saving file name in a register | 210 | @cindex saving file name in a register |
| 211 | 211 | ||
diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog index c265b9e878d..f9ab82e7966 100644 --- a/doc/lispref/ChangeLog +++ b/doc/lispref/ChangeLog | |||
| @@ -1,3 +1,16 @@ | |||
| 1 | 2011-07-11 Deniz Dogan <deniz@dogan.se> | ||
| 2 | |||
| 3 | * commands.texi (Prefix Command Arguments): Remove excessive | ||
| 4 | apostrophe. | ||
| 5 | |||
| 6 | 2011-07-11 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 7 | |||
| 8 | * syntax.texi (Syntax Descriptors): Clarify that the ". 23" syntax | ||
| 9 | description is a string (bug#3313). | ||
| 10 | |||
| 11 | * frames.texi (Display Feature Testing): Try to explain what all | ||
| 12 | the visual classes mean (bug#3042). | ||
| 13 | |||
| 1 | 2011-07-10 Lars Magne Ingebrigtsen <larsi@gnus.org> | 14 | 2011-07-10 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 15 | ||
| 3 | * modes.texi (Mode Line Variables): Document `mode-line-remote' | 16 | * modes.texi (Mode Line Variables): Document `mode-line-remote' |
diff --git a/doc/lispref/commands.texi b/doc/lispref/commands.texi index dccc2fa571c..e76b2bafd79 100644 --- a/doc/lispref/commands.texi +++ b/doc/lispref/commands.texi | |||
| @@ -3012,7 +3012,7 @@ An integer, which stands for itself. | |||
| 3012 | 3012 | ||
| 3013 | @item | 3013 | @item |
| 3014 | A list of one element, which is an integer. This form of prefix | 3014 | A list of one element, which is an integer. This form of prefix |
| 3015 | argument results from one or a succession of @kbd{C-u}'s with no | 3015 | argument results from one or a succession of @kbd{C-u}s with no |
| 3016 | digits. The numeric value is the integer in the list, but some | 3016 | digits. The numeric value is the integer in the list, but some |
| 3017 | commands make a distinction between such a list and an integer alone. | 3017 | commands make a distinction between such a list and an integer alone. |
| 3018 | 3018 | ||
diff --git a/doc/lispref/frames.texi b/doc/lispref/frames.texi index ee765a7e1d0..7dc6934c7d9 100644 --- a/doc/lispref/frames.texi +++ b/doc/lispref/frames.texi | |||
| @@ -2446,10 +2446,13 @@ For a tty display, it is log to base two of the number of colors supported. | |||
| 2446 | @end defun | 2446 | @end defun |
| 2447 | 2447 | ||
| 2448 | @defun display-visual-class &optional display | 2448 | @defun display-visual-class &optional display |
| 2449 | This function returns the visual class for the screen. The value is one | 2449 | This function returns the visual class for the screen. The value is |
| 2450 | of the symbols @code{static-gray}, @code{gray-scale}, | 2450 | one of the symbols @code{static-gray} (a limited, unchangeable number |
| 2451 | @code{static-color}, @code{pseudo-color}, @code{true-color}, and | 2451 | of grays), @code{gray-scale} (a full range of grays), |
| 2452 | @code{direct-color}. | 2452 | @code{static-color} (a limited, unchangeable number of colors), |
| 2453 | @code{pseudo-color} (a limited number of colors), @code{true-color} (a | ||
| 2454 | full range of colors), and @code{direct-color} (a full range of | ||
| 2455 | colors). | ||
| 2453 | @end defun | 2456 | @end defun |
| 2454 | 2457 | ||
| 2455 | @defun display-color-cells &optional display | 2458 | @defun display-color-cells &optional display |
diff --git a/doc/lispref/syntax.texi b/doc/lispref/syntax.texi index 6582a8dfb0c..31ee7eb4e7d 100644 --- a/doc/lispref/syntax.texi +++ b/doc/lispref/syntax.texi | |||
| @@ -108,7 +108,7 @@ Then come the characters for any desired flags. If no matching | |||
| 108 | character or flags are needed, one character is sufficient. | 108 | character or flags are needed, one character is sufficient. |
| 109 | 109 | ||
| 110 | For example, the syntax descriptor for the character @samp{*} in C | 110 | For example, the syntax descriptor for the character @samp{*} in C |
| 111 | mode is @samp{@w{. 23}} (i.e., punctuation, matching character slot | 111 | mode is @code{". 23"} (i.e., punctuation, matching character slot |
| 112 | unused, second character of a comment-starter, first character of a | 112 | unused, second character of a comment-starter, first character of a |
| 113 | comment-ender), and the entry for @samp{/} is @samp{@w{. 14}} (i.e., | 113 | comment-ender), and the entry for @samp{/} is @samp{@w{. 14}} (i.e., |
| 114 | punctuation, matching character slot unused, first character of a | 114 | punctuation, matching character slot unused, first character of a |
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a3faab15c35..e024646cd26 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,32 @@ | |||
| 1 | 2011-07-11 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * loadhist.el (unload-feature-special-hooks): | ||
| 4 | Add `auto-coding-functions', `fill-nobreak-predicate' and | ||
| 5 | `find-directory-functions' (bug#5327). | ||
| 6 | |||
| 7 | 2011-07-11 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 8 | |||
| 9 | * vc/ediff.el (ediff-patch-file): Clarify doc string (bug#3138). | ||
| 10 | |||
| 11 | * cus-edit.el (custom-guess-name-alist): -alist variables should | ||
| 12 | use the `alist' type (bug#3120). Suggested by Drew Adams. | ||
| 13 | |||
| 14 | * printing.el: Add documentation to all the `pr-toggle-' commands. | ||
| 15 | |||
| 16 | 2011-07-11 Leo <sdl.web@gmail.com> (tiny change) | ||
| 17 | |||
| 18 | * files.el (toggle-read-only): Only do the `C-x C-q' warning on VC | ||
| 19 | backends where it makes sense (bug#2623). | ||
| 20 | |||
| 21 | 2011-07-11 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 22 | |||
| 23 | * dired-x.el (dired-guess-default): Remove duplicate shell command | ||
| 24 | entries (bug#2028). | ||
| 25 | (dired-guess-default): Fix grammar in doc string (bug#2028). | ||
| 26 | (dired-guess-shell-alist-user): Clarify the example a bit (bug#2030). | ||
| 27 | |||
| 28 | * subr.el (remove-duplicates): New conveniency function. | ||
| 29 | |||
| 1 | 2011-07-10 Lars Magne Ingebrigtsen <larsi@gnus.org> | 30 | 2011-07-10 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 31 | ||
| 3 | * tool-bar.el (tool-bar-mode): Clarify positive/negative arguments | 32 | * tool-bar.el (tool-bar-mode): Clarify positive/negative arguments |
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 820bcfeacba..22b7cc6b3fe 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -594,7 +594,7 @@ WIDGET is the widget to apply the filter entries of MENU on." | |||
| 594 | ("-function\\'" function) | 594 | ("-function\\'" function) |
| 595 | ("-functions\\'" (repeat function)) | 595 | ("-functions\\'" (repeat function)) |
| 596 | ("-list\\'" (repeat sexp)) | 596 | ("-list\\'" (repeat sexp)) |
| 597 | ("-alist\\'" (repeat (cons sexp sexp)))) | 597 | ("-alist\\'" (alist :key-type sexp :value-type sexp))) |
| 598 | "Alist of (MATCH TYPE). | 598 | "Alist of (MATCH TYPE). |
| 599 | 599 | ||
| 600 | MATCH should be a regexp matching the name of a symbol, and TYPE should | 600 | MATCH should be a regexp matching the name of a symbol, and TYPE should |
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 8395a8b905f..a341e4f07a1 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el | |||
| @@ -1056,12 +1056,11 @@ You can set this variable in your ~/.emacs. For example, to add rules for | |||
| 1056 | `.foo' and `.bar' files, write | 1056 | `.foo' and `.bar' files, write |
| 1057 | 1057 | ||
| 1058 | \(setq dired-guess-shell-alist-user | 1058 | \(setq dired-guess-shell-alist-user |
| 1059 | (list (list \"\\\\.foo\\\\'\" \"FOO-COMMAND\");; fixed rule | 1059 | '((\"\\\\.foo\\\\'\" \"FOO-COMMAND\") |
| 1060 | ;; possibly more rules ... | 1060 | (\"\\\\.bar\\\\'\" |
| 1061 | (list \"\\\\.bar\\\\'\";; rule with condition test | 1061 | (if condition |
| 1062 | '(if condition | 1062 | \"BAR-COMMAND-1\" |
| 1063 | \"BAR-COMMAND-1\" | 1063 | \"BAR-COMMAND-2\"))))" |
| 1064 | \"BAR-COMMAND-2\")))\)" | ||
| 1065 | :group 'dired-x | 1064 | :group 'dired-x |
| 1066 | :type '(alist :key-type regexp :value-type (repeat sexp))) | 1065 | :type '(alist :key-type regexp :value-type (repeat sexp))) |
| 1067 | 1066 | ||
| @@ -1072,7 +1071,7 @@ You can set this variable in your ~/.emacs. For example, to add rules for | |||
| 1072 | :type 'boolean) | 1071 | :type 'boolean) |
| 1073 | 1072 | ||
| 1074 | (defun dired-guess-default (files) | 1073 | (defun dired-guess-default (files) |
| 1075 | "Guess a shell commands for FILES. Return command or list of commands. | 1074 | "Return a shell command, or a list of commands, appropriate for FILES. |
| 1076 | See `dired-guess-shell-alist-user'." | 1075 | See `dired-guess-shell-alist-user'." |
| 1077 | 1076 | ||
| 1078 | (let* ((case-fold-search dired-guess-shell-case-fold-search) | 1077 | (let* ((case-fold-search dired-guess-shell-case-fold-search) |
| @@ -1104,8 +1103,8 @@ See `dired-guess-shell-alist-user'." | |||
| 1104 | ;; Return commands or nil if flist is still non-nil. | 1103 | ;; Return commands or nil if flist is still non-nil. |
| 1105 | ;; Evaluate the commands in order that any logical testing will be done. | 1104 | ;; Evaluate the commands in order that any logical testing will be done. |
| 1106 | (if (cdr cmds) | 1105 | (if (cdr cmds) |
| 1107 | (mapcar #'eval cmds) | 1106 | (remove-duplicates (mapcar #'eval cmds)) |
| 1108 | (eval (car cmds))))) ; single command | 1107 | (eval (car cmds))))) ; single command |
| 1109 | 1108 | ||
| 1110 | (defun dired-guess-shell-command (prompt files) | 1109 | (defun dired-guess-shell-command (prompt files) |
| 1111 | "Ask user with PROMPT for a shell command, guessing a default from FILES." | 1110 | "Ask user with PROMPT for a shell command, guessing a default from FILES." |
diff --git a/lisp/files.el b/lisp/files.el index c9f85ff6a1a..1071adb6967 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -4694,7 +4694,7 @@ and `view-read-only' is non-nil, enter view mode." | |||
| 4694 | (view-mode-enter)) | 4694 | (view-mode-enter)) |
| 4695 | (t (setq buffer-read-only (not buffer-read-only)) | 4695 | (t (setq buffer-read-only (not buffer-read-only)) |
| 4696 | (force-mode-line-update))) | 4696 | (force-mode-line-update))) |
| 4697 | (if (vc-backend buffer-file-name) | 4697 | (if (memq (vc-backend buffer-file-name) '(RCS SCCS)) |
| 4698 | (message "%s" (substitute-command-keys | 4698 | (message "%s" (substitute-command-keys |
| 4699 | (concat "File is under version-control; " | 4699 | (concat "File is under version-control; " |
| 4700 | "use \\[vc-next-action] to check in/out")))))) | 4700 | "use \\[vc-next-action] to check in/out")))))) |
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 943eac42b02..0b569199935 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el | |||
| @@ -115,20 +115,28 @@ from a file." | |||
| 115 | (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks) | 115 | (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks) |
| 116 | (defvar unload-feature-special-hooks | 116 | (defvar unload-feature-special-hooks |
| 117 | '(after-change-functions after-insert-file-functions | 117 | '(after-change-functions after-insert-file-functions |
| 118 | after-make-frame-functions auto-fill-function before-change-functions | 118 | after-make-frame-functions auto-coding-functions |
| 119 | auto-fill-function before-change-functions | ||
| 119 | blink-paren-function buffer-access-fontify-functions | 120 | blink-paren-function buffer-access-fontify-functions |
| 120 | choose-completion-string-functions comint-output-filter-functions | 121 | choose-completion-string-functions |
| 121 | command-line-functions comment-indent-function compilation-finish-functions | 122 | comint-output-filter-functions command-line-functions |
| 123 | comment-indent-function compilation-finish-functions | ||
| 122 | delete-frame-functions disabled-command-function | 124 | delete-frame-functions disabled-command-function |
| 123 | find-file-not-found-functions font-lock-beginning-of-syntax-function | 125 | fill-nobreak-predicate find-directory-functions |
| 124 | font-lock-fontify-buffer-function font-lock-fontify-region-function | 126 | find-file-not-found-functions |
| 125 | font-lock-mark-block-function font-lock-syntactic-face-function | 127 | font-lock-beginning-of-syntax-function |
| 126 | font-lock-unfontify-buffer-function font-lock-unfontify-region-function | 128 | font-lock-fontify-buffer-function |
| 127 | kill-buffer-query-functions kill-emacs-query-functions lisp-indent-function | 129 | font-lock-fontify-region-function |
| 128 | mouse-position-function redisplaylay-end-trigger-functions | 130 | font-lock-mark-block-function |
| 129 | suspend-tty-functions temp-buffer-show-function window-scroll-functions | 131 | font-lock-syntactic-face-function |
| 130 | window-size-change-functions write-contents-functions write-file-functions | 132 | font-lock-unfontify-buffer-function |
| 131 | write-region-annotate-functions) | 133 | font-lock-unfontify-region-function |
| 134 | kill-buffer-query-functions kill-emacs-query-functions | ||
| 135 | lisp-indent-function mouse-position-function | ||
| 136 | redisplaylay-end-trigger-functions suspend-tty-functions | ||
| 137 | temp-buffer-show-function window-scroll-functions | ||
| 138 | window-size-change-functions write-contents-functions | ||
| 139 | write-file-functions write-region-annotate-functions) | ||
| 132 | "A list of special hooks from Info node `(elisp)Standard Hooks'. | 140 | "A list of special hooks from Info node `(elisp)Standard Hooks'. |
| 133 | 141 | ||
| 134 | These are symbols with hooklike values whose names don't end in | 142 | These are symbols with hooklike values whose names don't end in |
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 197c87a26ab..2a254c89d25 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | 2011-07-10 Bill Wohler <wohler@newt.com> | 1 | 2011-07-10 Bill Wohler <wohler@newt.com> |
| 2 | 2 | ||
| 3 | Release MH-E version 8.9.90. | 3 | Release MH-E version 8.2.90. |
| 4 | 4 | ||
| 5 | * mh-e.el (Version, mh-version): Update for release 8.2.90. | 5 | * mh-e.el (Version, mh-version): Update for release 8.2.90. |
| 6 | 6 | ||
diff --git a/lisp/printing.el b/lisp/printing.el index e66cca25933..76fdeaec500 100644 --- a/lisp/printing.el +++ b/lisp/printing.el | |||
| @@ -5346,102 +5346,119 @@ If menu binding was not done, calls `pr-menu-bind'." | |||
| 5346 | 5346 | ||
| 5347 | 5347 | ||
| 5348 | (defun pr-toggle-file-duplex-menu (&optional no-menu) | 5348 | (defun pr-toggle-file-duplex-menu (&optional no-menu) |
| 5349 | "Toggle whether to print PostScript files in duplex mode." | ||
| 5349 | (interactive) | 5350 | (interactive) |
| 5350 | (pr-toggle 'pr-file-duplex "PS file duplex" nil 7 5 nil | 5351 | (pr-toggle 'pr-file-duplex "PS file duplex" nil 7 5 nil |
| 5351 | '("PostScript Print" "File") no-menu)) | 5352 | '("PostScript Print" "File") no-menu)) |
| 5352 | 5353 | ||
| 5353 | 5354 | ||
| 5354 | (defun pr-toggle-file-tumble-menu (&optional no-menu) | 5355 | (defun pr-toggle-file-tumble-menu (&optional no-menu) |
| 5356 | "Toggle whether to print PostScript files in tumble mode." | ||
| 5355 | (interactive) | 5357 | (interactive) |
| 5356 | (pr-toggle 'pr-file-tumble "PS file tumble" nil 8 5 nil | 5358 | (pr-toggle 'pr-file-tumble "PS file tumble" nil 8 5 nil |
| 5357 | '("PostScript Print" "File") no-menu)) | 5359 | '("PostScript Print" "File") no-menu)) |
| 5358 | 5360 | ||
| 5359 | 5361 | ||
| 5360 | (defun pr-toggle-file-landscape-menu (&optional no-menu) | 5362 | (defun pr-toggle-file-landscape-menu (&optional no-menu) |
| 5363 | "Toggle whether to print PostScript files in landscape orientation." | ||
| 5361 | (interactive) | 5364 | (interactive) |
| 5362 | (pr-toggle 'pr-file-landscape "PS file landscape" nil 6 5 nil | 5365 | (pr-toggle 'pr-file-landscape "PS file landscape" nil 6 5 nil |
| 5363 | '("PostScript Print" "File") no-menu)) | 5366 | '("PostScript Print" "File") no-menu)) |
| 5364 | 5367 | ||
| 5365 | 5368 | ||
| 5366 | (defun pr-toggle-ghostscript-menu (&optional no-menu) | 5369 | (defun pr-toggle-ghostscript-menu (&optional no-menu) |
| 5370 | "Toggle whether to print using ghostscript." | ||
| 5367 | (interactive) | 5371 | (interactive) |
| 5368 | (pr-toggle 'pr-print-using-ghostscript "Printing using ghostscript" | 5372 | (pr-toggle 'pr-print-using-ghostscript "Printing using ghostscript" |
| 5369 | 'postscript-process 2 12 'toggle nil no-menu)) | 5373 | 'postscript-process 2 12 'toggle nil no-menu)) |
| 5370 | 5374 | ||
| 5371 | 5375 | ||
| 5372 | (defun pr-toggle-faces-menu (&optional no-menu) | 5376 | (defun pr-toggle-faces-menu (&optional no-menu) |
| 5377 | "Toggle whether to print with face attributes." | ||
| 5373 | (interactive) | 5378 | (interactive) |
| 5374 | (pr-toggle 'pr-faces-p "Printing with faces" | 5379 | (pr-toggle 'pr-faces-p "Printing with faces" |
| 5375 | 'postscript-process 1 12 'toggle nil no-menu)) | 5380 | 'postscript-process 1 12 'toggle nil no-menu)) |
| 5376 | 5381 | ||
| 5377 | 5382 | ||
| 5378 | (defun pr-toggle-spool-menu (&optional no-menu) | 5383 | (defun pr-toggle-spool-menu (&optional no-menu) |
| 5384 | "Toggle whether to spool printing in a buffer." | ||
| 5379 | (interactive) | 5385 | (interactive) |
| 5380 | (pr-toggle 'pr-spool-p "Spooling printing" | 5386 | (pr-toggle 'pr-spool-p "Spooling printing" |
| 5381 | 'postscript-process 0 12 'toggle nil no-menu)) | 5387 | 'postscript-process 0 12 'toggle nil no-menu)) |
| 5382 | 5388 | ||
| 5383 | 5389 | ||
| 5384 | (defun pr-toggle-duplex-menu (&optional no-menu) | 5390 | (defun pr-toggle-duplex-menu (&optional no-menu) |
| 5391 | "Toggle whether to generate PostScript for a two-sided printer." | ||
| 5385 | (interactive) | 5392 | (interactive) |
| 5386 | (pr-toggle 'ps-spool-duplex "Printing duplex" | 5393 | (pr-toggle 'ps-spool-duplex "Printing duplex" |
| 5387 | 'postscript-options 5 12 'toggle nil no-menu)) | 5394 | 'postscript-options 5 12 'toggle nil no-menu)) |
| 5388 | 5395 | ||
| 5389 | 5396 | ||
| 5390 | (defun pr-toggle-tumble-menu (&optional no-menu) | 5397 | (defun pr-toggle-tumble-menu (&optional no-menu) |
| 5398 | "Toggle how pages on opposite sides of a sheet are oriented." | ||
| 5391 | (interactive) | 5399 | (interactive) |
| 5392 | (pr-toggle 'ps-spool-tumble "Tumble" | 5400 | (pr-toggle 'ps-spool-tumble "Tumble" |
| 5393 | 'postscript-options 6 12 'toggle nil no-menu)) | 5401 | 'postscript-options 6 12 'toggle nil no-menu)) |
| 5394 | 5402 | ||
| 5395 | 5403 | ||
| 5396 | (defun pr-toggle-landscape-menu (&optional no-menu) | 5404 | (defun pr-toggle-landscape-menu (&optional no-menu) |
| 5405 | "Toggle whether to print in landscape mode." | ||
| 5397 | (interactive) | 5406 | (interactive) |
| 5398 | (pr-toggle 'ps-landscape-mode "Landscape" | 5407 | (pr-toggle 'ps-landscape-mode "Landscape" |
| 5399 | 'postscript-options 0 12 'toggle nil no-menu)) | 5408 | 'postscript-options 0 12 'toggle nil no-menu)) |
| 5400 | 5409 | ||
| 5401 | 5410 | ||
| 5402 | (defun pr-toggle-upside-down-menu (&optional no-menu) | 5411 | (defun pr-toggle-upside-down-menu (&optional no-menu) |
| 5412 | "Toggle whether to print upside-down (that is, rotated by 180 degrees)." | ||
| 5403 | (interactive) | 5413 | (interactive) |
| 5404 | (pr-toggle 'ps-print-upside-down "Upside-Down" | 5414 | (pr-toggle 'ps-print-upside-down "Upside-Down" |
| 5405 | 'postscript-options 7 12 'toggle nil no-menu)) | 5415 | 'postscript-options 7 12 'toggle nil no-menu)) |
| 5406 | 5416 | ||
| 5407 | 5417 | ||
| 5408 | (defun pr-toggle-line-menu (&optional no-menu) | 5418 | (defun pr-toggle-line-menu (&optional no-menu) |
| 5419 | "Toggle whether to means print line numbers." | ||
| 5409 | (interactive) | 5420 | (interactive) |
| 5410 | (pr-toggle 'ps-line-number "Line number" | 5421 | (pr-toggle 'ps-line-number "Line number" |
| 5411 | 'postscript-options 3 12 'toggle nil no-menu)) | 5422 | 'postscript-options 3 12 'toggle nil no-menu)) |
| 5412 | 5423 | ||
| 5413 | 5424 | ||
| 5414 | (defun pr-toggle-zebra-menu (&optional no-menu) | 5425 | (defun pr-toggle-zebra-menu (&optional no-menu) |
| 5426 | "Toggle whether to print zebra stripes." | ||
| 5415 | (interactive) | 5427 | (interactive) |
| 5416 | (pr-toggle 'ps-zebra-stripes "Zebra stripe" | 5428 | (pr-toggle 'ps-zebra-stripes "Zebra stripe" |
| 5417 | 'postscript-options 4 12 'toggle nil no-menu)) | 5429 | 'postscript-options 4 12 'toggle nil no-menu)) |
| 5418 | 5430 | ||
| 5419 | 5431 | ||
| 5420 | (defun pr-toggle-header-menu (&optional no-menu) | 5432 | (defun pr-toggle-header-menu (&optional no-menu) |
| 5433 | "Toggle whether to print a header at the top of each page." | ||
| 5421 | (interactive) | 5434 | (interactive) |
| 5422 | (pr-toggle 'ps-print-header "Print header" | 5435 | (pr-toggle 'ps-print-header "Print header" |
| 5423 | 'postscript-options 1 12 'toggle nil no-menu)) | 5436 | 'postscript-options 1 12 'toggle nil no-menu)) |
| 5424 | 5437 | ||
| 5425 | 5438 | ||
| 5426 | (defun pr-toggle-header-frame-menu (&optional no-menu) | 5439 | (defun pr-toggle-header-frame-menu (&optional no-menu) |
| 5440 | "Toggle whether to draw a gaudy frame around the header." | ||
| 5427 | (interactive) | 5441 | (interactive) |
| 5428 | (pr-toggle 'ps-print-header-frame "Print header frame" | 5442 | (pr-toggle 'ps-print-header-frame "Print header frame" |
| 5429 | 'postscript-options 2 12 'toggle nil no-menu)) | 5443 | 'postscript-options 2 12 'toggle nil no-menu)) |
| 5430 | 5444 | ||
| 5431 | 5445 | ||
| 5432 | (defun pr-toggle-lock-menu (&optional no-menu) | 5446 | (defun pr-toggle-lock-menu (&optional no-menu) |
| 5447 | "Toggle whether the menu is locked while selecting toggle options." | ||
| 5433 | (interactive) | 5448 | (interactive) |
| 5434 | (pr-toggle 'pr-menu-lock "Menu lock" | 5449 | (pr-toggle 'pr-menu-lock "Menu lock" |
| 5435 | 'printing 2 12 'toggle nil no-menu)) | 5450 | 'printing 2 12 'toggle nil no-menu)) |
| 5436 | 5451 | ||
| 5437 | 5452 | ||
| 5438 | (defun pr-toggle-region-menu (&optional no-menu) | 5453 | (defun pr-toggle-region-menu (&optional no-menu) |
| 5454 | "Toggle whether the region is automagically detected." | ||
| 5439 | (interactive) | 5455 | (interactive) |
| 5440 | (pr-toggle 'pr-auto-region "Auto region" | 5456 | (pr-toggle 'pr-auto-region "Auto region" |
| 5441 | 'printing 0 12 'toggle nil no-menu)) | 5457 | 'printing 0 12 'toggle nil no-menu)) |
| 5442 | 5458 | ||
| 5443 | 5459 | ||
| 5444 | (defun pr-toggle-mode-menu (&optional no-menu) | 5460 | (defun pr-toggle-mode-menu (&optional no-menu) |
| 5461 | "Toggle whether major-mode specific printing is prefered over normal printing." | ||
| 5445 | (interactive) | 5462 | (interactive) |
| 5446 | (pr-toggle 'pr-auto-mode "Auto mode" | 5463 | (pr-toggle 'pr-auto-mode "Auto mode" |
| 5447 | 'printing 1 12 'toggle nil no-menu)) | 5464 | 'printing 1 12 'toggle nil no-menu)) |
diff --git a/lisp/subr.el b/lisp/subr.el index 5c9d6c8d724..2b7ba17e10c 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -173,7 +173,7 @@ value of last one, or nil if there are none. | |||
| 173 | (progn | 173 | (progn |
| 174 | ;; If we reload subr.el after having loaded CL, be careful not to | 174 | ;; If we reload subr.el after having loaded CL, be careful not to |
| 175 | ;; overwrite CL's extended definition of `dolist', `dotimes', | 175 | ;; overwrite CL's extended definition of `dolist', `dotimes', |
| 176 | ;; `declare', `push' and `pop'. | 176 | ;; `declare', `push', `pop' and `remove-duplicates'. |
| 177 | 177 | ||
| 178 | (defmacro dolist (spec &rest body) | 178 | (defmacro dolist (spec &rest body) |
| 179 | "Loop over a list. | 179 | "Loop over a list. |
| @@ -250,6 +250,15 @@ the return value (nil if RESULT is omitted). | |||
| 250 | Treated as a declaration when used at the right place in a | 250 | Treated as a declaration when used at the right place in a |
| 251 | `defmacro' form. \(See Info anchor `(elisp)Definition of declare'.)" | 251 | `defmacro' form. \(See Info anchor `(elisp)Definition of declare'.)" |
| 252 | nil) | 252 | nil) |
| 253 | |||
| 254 | (defun remove-duplicates (list) | ||
| 255 | "Return a copy of LIST with all duplicate elements removed." | ||
| 256 | (let ((result nil)) | ||
| 257 | (while list | ||
| 258 | (unless (member (car list) result) | ||
| 259 | (push (car list) result)) | ||
| 260 | (pop list)) | ||
| 261 | (nreverse result))) | ||
| 253 | )) | 262 | )) |
| 254 | 263 | ||
| 255 | (defmacro ignore-errors (&rest body) | 264 | (defmacro ignore-errors (&rest body) |
diff --git a/lisp/vc/ediff.el b/lisp/vc/ediff.el index 5e352493dc9..464fdc0a589 100644 --- a/lisp/vc/ediff.el +++ b/lisp/vc/ediff.el | |||
| @@ -1348,7 +1348,7 @@ buffer." | |||
| 1348 | 1348 | ||
| 1349 | ;;;###autoload | 1349 | ;;;###autoload |
| 1350 | (defun ediff-patch-file (&optional arg patch-buf) | 1350 | (defun ediff-patch-file (&optional arg patch-buf) |
| 1351 | "Run Ediff by patching SOURCE-FILENAME. | 1351 | "Query for a file name, and then run Ediff by patching that file. |
| 1352 | If optional PATCH-BUF is given, use the patch in that buffer | 1352 | If optional PATCH-BUF is given, use the patch in that buffer |
| 1353 | and don't ask the user. | 1353 | and don't ask the user. |
| 1354 | If prefix argument, then: if even argument, assume that the patch is in a | 1354 | If prefix argument, then: if even argument, assume that the patch is in a |
diff --git a/src/ChangeLog b/src/ChangeLog index c519100b2f0..b0913ab983c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -156,6 +156,14 @@ | |||
| 156 | Use EMACS_INT, not EMACS_UINT, for sizes. The code works equally | 156 | Use EMACS_INT, not EMACS_UINT, for sizes. The code works equally |
| 157 | well either way, and we prefer signed to unsigned. | 157 | well either way, and we prefer signed to unsigned. |
| 158 | 158 | ||
| 159 | 2011-07-11 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 160 | |||
| 161 | * xdisp.c (syms_of_xdisp): Make it explicit that the mini-windows | ||
| 162 | are the mini-buffer and the echo area (bug#3320). | ||
| 163 | |||
| 164 | * term.c (init_tty): Remove support for supdup, c10 and perq | ||
| 165 | terminals, which are no longer supported (bug#1482). | ||
| 166 | |||
| 159 | 2011-07-10 Johan Bockgård <bojohan@gnu.org> | 167 | 2011-07-10 Johan Bockgård <bojohan@gnu.org> |
| 160 | 168 | ||
| 161 | * xdisp.c (Ftool_bar_lines_needed): Fix WINDOWP check. | 169 | * xdisp.c (Ftool_bar_lines_needed): Fix WINDOWP check. |
diff --git a/src/term.c b/src/term.c index be23e547514..b9f10b122a7 100644 --- a/src/term.c +++ b/src/term.c | |||
| @@ -3505,55 +3505,6 @@ use the Bourne shell command `TERM=... export TERM' (C-shell:\n\ | |||
| 3505 | Down (tty) = 0; | 3505 | Down (tty) = 0; |
| 3506 | } | 3506 | } |
| 3507 | 3507 | ||
| 3508 | /* Special handling for certain terminal types known to need it */ | ||
| 3509 | |||
| 3510 | if (!strcmp (terminal_type, "supdup")) | ||
| 3511 | { | ||
| 3512 | terminal->memory_below_frame = 1; | ||
| 3513 | tty->Wcm->cm_losewrap = 1; | ||
| 3514 | } | ||
| 3515 | if (!strncmp (terminal_type, "c10", 3) | ||
| 3516 | || !strcmp (terminal_type, "perq")) | ||
| 3517 | { | ||
| 3518 | /* Supply a makeshift :wi string. | ||
| 3519 | This string is not valid in general since it works only | ||
| 3520 | for windows starting at the upper left corner; | ||
| 3521 | but that is all Emacs uses. | ||
| 3522 | |||
| 3523 | This string works only if the frame is using | ||
| 3524 | the top of the video memory, because addressing is memory-relative. | ||
| 3525 | So first check the :ti string to see if that is true. | ||
| 3526 | |||
| 3527 | It would be simpler if the :wi string could go in the termcap | ||
| 3528 | entry, but it can't because it is not fully valid. | ||
| 3529 | If it were in the termcap entry, it would confuse other programs. */ | ||
| 3530 | if (!tty->TS_set_window) | ||
| 3531 | { | ||
| 3532 | const char *m = tty->TS_termcap_modes; | ||
| 3533 | while (*m && strcmp (m, "\033v ")) | ||
| 3534 | m++; | ||
| 3535 | if (*m) | ||
| 3536 | tty->TS_set_window = "\033v%C %C %C %C "; | ||
| 3537 | } | ||
| 3538 | /* Termcap entry often fails to have :in: flag */ | ||
| 3539 | terminal->must_write_spaces = 1; | ||
| 3540 | /* :ti string typically fails to have \E^G! in it */ | ||
| 3541 | /* This limits scope of insert-char to one line. */ | ||
| 3542 | strcpy (area, tty->TS_termcap_modes); | ||
| 3543 | strcat (area, "\033\007!"); | ||
| 3544 | tty->TS_termcap_modes = area; | ||
| 3545 | area += strlen (area) + 1; | ||
| 3546 | p = AbsPosition (tty); | ||
| 3547 | /* Change all %+ parameters to %C, to handle | ||
| 3548 | values above 96 correctly for the C100. */ | ||
| 3549 | while (*p) | ||
| 3550 | { | ||
| 3551 | if (p[0] == '%' && p[1] == '+') | ||
| 3552 | p[1] = 'C'; | ||
| 3553 | p++; | ||
| 3554 | } | ||
| 3555 | } | ||
| 3556 | |||
| 3557 | tty->specified_window = FrameRows (tty); | 3508 | tty->specified_window = FrameRows (tty); |
| 3558 | 3509 | ||
| 3559 | if (Wcm_init (tty) == -1) /* can't do cursor motion */ | 3510 | if (Wcm_init (tty) == -1) /* can't do cursor motion */ |
diff --git a/src/xdisp.c b/src/xdisp.c index a4a9e236a9e..490b23891af 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -26846,13 +26846,13 @@ but does not change the fact they are interpreted as raw bytes. */); | |||
| 26846 | unibyte_display_via_language_environment = 0; | 26846 | unibyte_display_via_language_environment = 0; |
| 26847 | 26847 | ||
| 26848 | DEFVAR_LISP ("max-mini-window-height", Vmax_mini_window_height, | 26848 | DEFVAR_LISP ("max-mini-window-height", Vmax_mini_window_height, |
| 26849 | doc: /* *Maximum height for resizing mini-windows. | 26849 | doc: /* *Maximum height for resizing mini-windows (the minibuffer and the echo area). |
| 26850 | If a float, it specifies a fraction of the mini-window frame's height. | 26850 | If a float, it specifies a fraction of the mini-window frame's height. |
| 26851 | If an integer, it specifies a number of lines. */); | 26851 | If an integer, it specifies a number of lines. */); |
| 26852 | Vmax_mini_window_height = make_float (0.25); | 26852 | Vmax_mini_window_height = make_float (0.25); |
| 26853 | 26853 | ||
| 26854 | DEFVAR_LISP ("resize-mini-windows", Vresize_mini_windows, | 26854 | DEFVAR_LISP ("resize-mini-windows", Vresize_mini_windows, |
| 26855 | doc: /* *How to resize mini-windows. | 26855 | doc: /* *How to resize mini-windows (the minibuffer and the echo area). |
| 26856 | A value of nil means don't automatically resize mini-windows. | 26856 | A value of nil means don't automatically resize mini-windows. |
| 26857 | A value of t means resize them to fit the text displayed in them. | 26857 | A value of t means resize them to fit the text displayed in them. |
| 26858 | A value of `grow-only', the default, means let mini-windows grow | 26858 | A value of `grow-only', the default, means let mini-windows grow |