aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2011-07-11 18:39:28 +0000
committerPaul Eggert2011-07-11 18:39:28 +0000
commite9eb6f14fe334d0e37d2037c952e6541eeb242ad (patch)
tree7087ce37a1e6233093f80a4fa653e91a1f96529c
parente3c25c689524aa85ce37840fff344cc297cf42ec (diff)
parent07151e498ff9174518675e14b619aca4b8307733 (diff)
downloademacs-e9eb6f14fe334d0e37d2037c952e6541eeb242ad.tar.gz
emacs-e9eb6f14fe334d0e37d2037c952e6541eeb242ad.zip
Merge from trunk.
-rw-r--r--doc/emacs/ChangeLog8
-rw-r--r--doc/emacs/emacs.texi14
-rw-r--r--doc/emacs/killing.texi3
-rw-r--r--doc/emacs/kmacro.texi4
-rw-r--r--doc/emacs/mark.texi9
-rw-r--r--doc/emacs/regs.texi26
-rw-r--r--doc/lispref/ChangeLog13
-rw-r--r--doc/lispref/commands.texi2
-rw-r--r--doc/lispref/frames.texi11
-rw-r--r--doc/lispref/syntax.texi2
-rw-r--r--lisp/ChangeLog29
-rw-r--r--lisp/cus-edit.el2
-rw-r--r--lisp/dired-x.el17
-rw-r--r--lisp/files.el2
-rw-r--r--lisp/loadhist.el32
-rw-r--r--lisp/mh-e/ChangeLog2
-rw-r--r--lisp/printing.el17
-rw-r--r--lisp/subr.el11
-rw-r--r--lisp/vc/ediff.el2
-rw-r--r--src/ChangeLog8
-rw-r--r--src/term.c49
-rw-r--r--src/xdisp.c4
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 @@
12011-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
12011-07-11 Chong Yidong <cyd@stupidchicken.com> 92011-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
339Registers 339Registers
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
349Controlling the Display 349Controlling 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
761r @var{r}} and @kbd{C-x r i @var{r}}. @xref{RegRect,,Rectangle 761r @var{r}} and @kbd{C-x r i @var{r}}. @xref{Rectangle Registers}.
762Registers}.
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
334repetition of the macro, that accomplishes the same thing as a 334repetition of the macro, that accomplishes the same thing as a
335keyboard macro counter. @xref{RegNumbers}. For most purposes, it is 335keyboard macro counter. @xref{Number Registers}. For most purposes,
336simpler to use a keyboard macro counter. 336it 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
69Set the mark at point, then move point to where you click 69Set 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}
72Set the mark at point if the mark is inactive, then move point.
73@end table 71@end table
74 72
73Also, the shifted motion keys (for example, @key{S-Right}) will set
74the 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
309ring may not be convenient enough. If so, you can record the position 310ring may not be convenient enough. If so, you can record the position
310in a register for later retrieval (@pxref{RegPos,, Saving Positions in 311in a register for later retrieval (@pxref{Position Registers,, Saving
311Registers}). 312Positions 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
35seem to belong in this chapter. 35seem 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
76again by visiting the same file. Of course, this works only for buffers 76again by visiting the same file. Of course, this works only for buffers
77that were visiting files. 77that 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
123after, but with a numeric argument (@kbd{C-u}) it puts point after the 123after, but with a numeric argument (@kbd{C-u}) it puts point after the
124text and the mark before. 124text 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
151as sorting a rectangle. @xref{Sorting}. 151as 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
178configuration become invisible. If you wish to delete these frames 178configuration become invisible. If you wish to delete these frames
179instead, use @kbd{C-u C-x r j @var{r}}. 179instead, 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
205argument increments the register value by 1; @kbd{C-x r n} with no 205argument increments the register value by 1; @kbd{C-x r n} with no
206numeric argument stores zero in the register. 206numeric 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 @@
12011-07-11 Deniz Dogan <deniz@dogan.se>
2
3 * commands.texi (Prefix Command Arguments): Remove excessive
4 apostrophe.
5
62011-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
12011-07-10 Lars Magne Ingebrigtsen <larsi@gnus.org> 142011-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
3014A list of one element, which is an integer. This form of prefix 3014A list of one element, which is an integer. This form of prefix
3015argument results from one or a succession of @kbd{C-u}'s with no 3015argument results from one or a succession of @kbd{C-u}s with no
3016digits. The numeric value is the integer in the list, but some 3016digits. The numeric value is the integer in the list, but some
3017commands make a distinction between such a list and an integer alone. 3017commands 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
2449This function returns the visual class for the screen. The value is one 2449This function returns the visual class for the screen. The value is
2450of the symbols @code{static-gray}, @code{gray-scale}, 2450one of the symbols @code{static-gray} (a limited, unchangeable number
2451@code{static-color}, @code{pseudo-color}, @code{true-color}, and 2451of 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
2454full range of colors), and @code{direct-color} (a full range of
2455colors).
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
108character or flags are needed, one character is sufficient. 108character 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
111mode is @samp{@w{. 23}} (i.e., punctuation, matching character slot 111mode is @code{". 23"} (i.e., punctuation, matching character slot
112unused, second character of a comment-starter, first character of a 112unused, second character of a comment-starter, first character of a
113comment-ender), and the entry for @samp{/} is @samp{@w{. 14}} (i.e., 113comment-ender), and the entry for @samp{/} is @samp{@w{. 14}} (i.e.,
114punctuation, matching character slot unused, first character of a 114punctuation, 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 @@
12011-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
72011-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
162011-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
212011-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
12011-07-10 Lars Magne Ingebrigtsen <larsi@gnus.org> 302011-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
600MATCH should be a regexp matching the name of a symbol, and TYPE should 600MATCH 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.
1076See `dired-guess-shell-alist-user'." 1075See `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
134These are symbols with hooklike values whose names don't end in 142These 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 @@
12011-07-10 Bill Wohler <wohler@newt.com> 12011-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).
250Treated as a declaration when used at the right place in a 250Treated 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.
1352If optional PATCH-BUF is given, use the patch in that buffer 1352If optional PATCH-BUF is given, use the patch in that buffer
1353and don't ask the user. 1353and don't ask the user.
1354If prefix argument, then: if even argument, assume that the patch is in a 1354If 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
1592011-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
1592011-07-10 Johan Bockgård <bojohan@gnu.org> 1672011-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).
26850If a float, it specifies a fraction of the mini-window frame's height. 26850If a float, it specifies a fraction of the mini-window frame's height.
26851If an integer, it specifies a number of lines. */); 26851If 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).
26856A value of nil means don't automatically resize mini-windows. 26856A value of nil means don't automatically resize mini-windows.
26857A value of t means resize them to fit the text displayed in them. 26857A value of t means resize them to fit the text displayed in them.
26858A value of `grow-only', the default, means let mini-windows grow 26858A value of `grow-only', the default, means let mini-windows grow