aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2018-11-28 07:51:12 -0800
committerGlenn Morris2018-11-28 07:51:12 -0800
commit415ef4a2b02dac17bf1bb962154633e671e561dd (patch)
tree029c1022ff672e6e4e4a2d44a8661a6543b130e5
parent2c59cfa831f133ca75b513e05aaedeccfe410784 (diff)
parent74a3a795afbf092d4086e5ebb4dcf0254e7c8b46 (diff)
downloademacs-415ef4a2b02dac17bf1bb962154633e671e561dd.tar.gz
emacs-415ef4a2b02dac17bf1bb962154633e671e561dd.zip
Merge from origin/emacs-26
74a3a79 (origin/emacs-26) Fix a typo in a doc string 911766d Minor markup fix in frames.texi 19ed1e9 * lisp/net/trampver.el (customize-package-emacs-version-alist... d7132ad * lisp/mh-e/mh-e.el (customize-package-emacs-version-alist): ... 5f39260 * lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): Pass format to m... a291f62 Don't call xwidget functions until GTK has been initialized f0531b8 Improve documentation of Ediff wordwise commands 2925ce5 Support Hunspell 1.7.0 in ispell.el 03bb7a8 Avoid clearing echo-area message by auto-save-visited-file-name
-rw-r--r--doc/lispref/frames.texi2
-rw-r--r--doc/misc/ediff.texi13
-rw-r--r--lisp/emacs-lisp/map-ynp.el10
-rw-r--r--lisp/mh-e/mh-e.el5
-rw-r--r--lisp/net/trampver.el2
-rw-r--r--lisp/textmodes/ispell.el7
-rw-r--r--lisp/vc/ediff.el9
-rw-r--r--src/gtkutil.c4
-rw-r--r--src/gtkutil.h1
-rw-r--r--src/xwidget.c6
10 files changed, 41 insertions, 18 deletions
diff --git a/doc/lispref/frames.texi b/doc/lispref/frames.texi
index ad5d0fc6015..b961d687edd 100644
--- a/doc/lispref/frames.texi
+++ b/doc/lispref/frames.texi
@@ -503,7 +503,7 @@ Height | | | Height | | | Height
503In practice not all of the areas shown in the drawing will or may be 503In practice not all of the areas shown in the drawing will or may be
504present. The meaning of these areas is described below. 504present. The meaning of these areas is described below.
505 505
506@table @samp 506@table @asis
507@item Outer Frame 507@item Outer Frame
508@cindex outer frame 508@cindex outer frame
509@cindex outer edges 509@cindex outer edges
diff --git a/doc/misc/ediff.texi b/doc/misc/ediff.texi
index 746c4c829d2..cce8321d9eb 100644
--- a/doc/misc/ediff.texi
+++ b/doc/misc/ediff.texi
@@ -210,11 +210,11 @@ ancestors. Ediff selects only the files that are under version control.
210 210
211@item ediff-windows-wordwise 211@item ediff-windows-wordwise
212@findex ediff-windows-wordwise 212@findex ediff-windows-wordwise
213Compare windows word-by-word. 213Compare text visible in 2 windows word-by-word.
214 214
215@item ediff-windows-linewise 215@item ediff-windows-linewise
216@findex ediff-windows-linewise 216@findex ediff-windows-linewise
217Compare windows line-by-line. 217Compare text visible in 2 windows line-by-line.
218 218
219@item ediff-regions-wordwise 219@item ediff-regions-wordwise
220@findex ediff-regions-wordwise 220@findex ediff-regions-wordwise
@@ -373,13 +373,12 @@ The commands @code{ediff-windows-wordwise},
373@code{ediff-windows-linewise}, @code{ediff-regions-wordwise} and 373@code{ediff-windows-linewise}, @code{ediff-regions-wordwise} and
374@code{ediff-regions-linewise} do comparison on parts of existing Emacs 374@code{ediff-regions-linewise} do comparison on parts of existing Emacs
375buffers. The commands @code{ediff-windows-wordwise} and 375buffers. The commands @code{ediff-windows-wordwise} and
376@code{ediff-regions-wordwise} are intended for relatively small segments 376@code{ediff-regions-wordwise} could be slow on very large buffers,
377of buffers (e.g., up to 100 lines, depending on the speed of your machine),
378as they perform comparison on the basis of words rather than lines. 377as they perform comparison on the basis of words rather than lines.
379(Word-wise comparison of large chunks of text can be slow.) 378(Word-wise comparison of large chunks of text is relatively expensive.)
380 379
381To compare large regions, use @code{ediff-regions-linewise}. This 380To compare very large regions, use @code{ediff-regions-linewise}.
382command displays differences much like @code{ediff-files} and 381This command displays differences much like @code{ediff-files} and
383@code{ediff-buffers}. 382@code{ediff-buffers}.
384 383
385The functions @code{ediff-patch-file} and @code{ediff-patch-buffer} apply a 384The functions @code{ediff-patch-file} and @code{ediff-patch-buffer} apply a
diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el
index a61c0adc8fb..27e8ea6adee 100644
--- a/lisp/emacs-lisp/map-ynp.el
+++ b/lisp/emacs-lisp/map-ynp.el
@@ -79,6 +79,7 @@ are meaningful here.
79 79
80Returns the number of actions taken." 80Returns the number of actions taken."
81 (let* ((actions 0) 81 (let* ((actions 0)
82 (msg (current-message))
82 user-keys mouse-event map prompt char elt def 83 user-keys mouse-event map prompt char elt def
83 ;; Non-nil means we should use mouse menus to ask. 84 ;; Non-nil means we should use mouse menus to ask.
84 use-menus 85 use-menus
@@ -246,9 +247,12 @@ C-g to quit (cancel the whole command);
246 (if delayed-switch-frame 247 (if delayed-switch-frame
247 (setq unread-command-events 248 (setq unread-command-events
248 (cons delayed-switch-frame unread-command-events)))) 249 (cons delayed-switch-frame unread-command-events))))
249 ;; Clear the last prompt from the minibuffer. 250 ;; Clear the last prompt from the minibuffer, and restore the
251 ;; previous echo-area message, if any.
250 (let ((message-log-max nil)) 252 (let ((message-log-max nil))
251 (message "")) 253 (if msg
254 (message "%s" msg)
255 (message "")))
252 ;; Return the number of actions that were taken. 256 ;; Return the number of actions that were taken.
253 actions)) 257 actions))
254 258
@@ -261,7 +265,7 @@ C-g to quit (cancel the whole command);
261 "If non-nil, `read-answer' accepts single-character answers. 265 "If non-nil, `read-answer' accepts single-character answers.
262If t, accept short (single key-press) answers to the question. 266If t, accept short (single key-press) answers to the question.
263If nil, require long answers. If `auto', accept short answers if 267If nil, require long answers. If `auto', accept short answers if
264the function cell of `yes-or-no-p' is set to `y-or-on-p'." 268the function cell of `yes-or-no-p' is set to `y-or-n-p'."
265 :type '(choice (const :tag "Accept short answers" t) 269 :type '(choice (const :tag "Accept short answers" t)
266 (const :tag "Require long answer" nil) 270 (const :tag "Require long answer" nil)
267 (const :tag "Guess preference" auto)) 271 (const :tag "Guess preference" auto))
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 4515144d148..54a62b8b97a 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -1029,12 +1029,13 @@ windows in the frame are removed."
1029 (when delete-other-windows-flag 1029 (when delete-other-windows-flag
1030 (delete-other-windows))) 1030 (delete-other-windows)))
1031 1031
1032;; FIXME: Maybe out of date? --xfq
1033(if (boundp 'customize-package-emacs-version-alist) 1032(if (boundp 'customize-package-emacs-version-alist)
1034 (add-to-list 'customize-package-emacs-version-alist 1033 (add-to-list 'customize-package-emacs-version-alist
1035 '(MH-E ("6.0" . "22.1") ("6.1" . "22.1") ("7.0" . "22.1") 1034 '(MH-E ("6.0" . "22.1") ("6.1" . "22.1") ("7.0" . "22.1")
1036 ("7.1" . "22.1") ("7.2" . "22.1") ("7.3" . "22.1") 1035 ("7.1" . "22.1") ("7.2" . "22.1") ("7.3" . "22.1")
1037 ("7.4" . "22.1") ("8.0" . "22.1")))) 1036 ("7.4" . "22.1") ("8.0" . "22.1") ("8.1" . "23.1")
1037 ("8.2" . "23.1") ("8.3" . "24.1") ("8.4" . "24.4")
1038 ("8.5" . "24.4") ("8.6" . "24.4"))))
1038 1039
1039 1040
1040 1041
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index d9b152e2bf6..ebd581b5f5a 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -78,7 +78,7 @@
78 ("2.2.3-24.1" . "24.1") ("2.2.3-24.1" . "24.2") ("2.2.6-24.3" . "24.3") 78 ("2.2.3-24.1" . "24.1") ("2.2.3-24.1" . "24.2") ("2.2.6-24.3" . "24.3")
79 ("2.2.9-24.4" . "24.4") ("2.2.11-24.5" . "24.5") 79 ("2.2.9-24.4" . "24.4") ("2.2.11-24.5" . "24.5")
80 ("2.2.13.25.1" . "25.1") ("2.2.13.25.2" . "25.2") 80 ("2.2.13.25.1" . "25.1") ("2.2.13.25.2" . "25.2")
81 ("2.2.13.25.2" . "25.3") 81 ("2.2.13.25.2" . "25.3") ("2.3.3" . "26.1")
82 ("2.3.3.26.1" . "26.1") ("2.3.5.26.2" . "26.2"))) 82 ("2.3.3.26.1" . "26.1") ("2.3.5.26.2" . "26.2")))
83 83
84(add-hook 'tramp-unload-hook 84(add-hook 'tramp-unload-hook
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 87bcb5d651a..6408f3876f2 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1106,7 +1106,12 @@ dictionary from that list was found."
1106 null-device 1106 null-device
1107 t 1107 t
1108 nil 1108 nil
1109 "-D") 1109 ;; Hunspell 1.7.0 (and later?) won't
1110 ;; show LOADED DICTIONARY unless
1111 ;; there's at least one file argument
1112 ;; on the command line. So we feed
1113 ;; it with the null device.
1114 "-D" null-device)
1110 (buffer-string)) 1115 (buffer-string))
1111 "[\n\r]+" 1116 "[\n\r]+"
1112 t)) 1117 t))
diff --git a/lisp/vc/ediff.el b/lisp/vc/ediff.el
index 32a6820fe7d..f424fdb7086 100644
--- a/lisp/vc/ediff.el
+++ b/lisp/vc/ediff.el
@@ -923,6 +923,7 @@ MERGE-AUTOSTORE-DIR is the directory in which to store merged files."
923;;;###autoload 923;;;###autoload
924(defun ediff-windows-wordwise (dumb-mode &optional wind-A wind-B startup-hooks) 924(defun ediff-windows-wordwise (dumb-mode &optional wind-A wind-B startup-hooks)
925 "Compare WIND-A and WIND-B, which are selected by clicking, wordwise. 925 "Compare WIND-A and WIND-B, which are selected by clicking, wordwise.
926This compares the portions of text visible in each of the two windows.
926With prefix argument, DUMB-MODE, or on a non-windowing display, works as 927With prefix argument, DUMB-MODE, or on a non-windowing display, works as
927follows: 928follows:
928If WIND-A is nil, use selected window. 929If WIND-A is nil, use selected window.
@@ -936,6 +937,7 @@ arguments after setting up the Ediff buffers."
936;;;###autoload 937;;;###autoload
937(defun ediff-windows-linewise (dumb-mode &optional wind-A wind-B startup-hooks) 938(defun ediff-windows-linewise (dumb-mode &optional wind-A wind-B startup-hooks)
938 "Compare WIND-A and WIND-B, which are selected by clicking, linewise. 939 "Compare WIND-A and WIND-B, which are selected by clicking, linewise.
940This compares the portions of text visible in each of the two windows.
939With prefix argument, DUMB-MODE, or on a non-windowing display, works as 941With prefix argument, DUMB-MODE, or on a non-windowing display, works as
940follows: 942follows:
941If WIND-A is nil, use selected window. 943If WIND-A is nil, use selected window.
@@ -946,7 +948,8 @@ arguments after setting up the Ediff buffers."
946 (ediff-windows dumb-mode wind-A wind-B 948 (ediff-windows dumb-mode wind-A wind-B
947 startup-hooks 'ediff-windows-linewise nil)) 949 startup-hooks 'ediff-windows-linewise nil))
948 950
949;; Compare WIND-A and WIND-B, which are selected by clicking. 951;; Compare visible portions of text in WIND-A and WIND-B, which are
952;; selected by clicking.
950;; With prefix argument, DUMB-MODE, or on a non-windowing display, 953;; With prefix argument, DUMB-MODE, or on a non-windowing display,
951;; works as follows: 954;; works as follows:
952;; If WIND-A is nil, use selected window. 955;; If WIND-A is nil, use selected window.
@@ -987,8 +990,8 @@ arguments after setting up the Ediff buffers."
987 "Run Ediff on a pair of regions in specified buffers. 990 "Run Ediff on a pair of regions in specified buffers.
988BUFFER-A and BUFFER-B are the buffers to be compared. 991BUFFER-A and BUFFER-B are the buffers to be compared.
989Regions (i.e., point and mark) can be set in advance or marked interactively. 992Regions (i.e., point and mark) can be set in advance or marked interactively.
990This function is effective only for relatively small regions, up to 200 993This function might be slow for large regions. If you find it slow,
991lines. For large regions, use `ediff-regions-linewise'. 994use `ediff-regions-linewise' instead.
992STARTUP-HOOKS is a list of functions that Emacs calls without 995STARTUP-HOOKS is a list of functions that Emacs calls without
993arguments after setting up the Ediff buffers." 996arguments after setting up the Ediff buffers."
994 (interactive 997 (interactive
diff --git a/src/gtkutil.c b/src/gtkutil.c
index da4a0ae13df..382039c4047 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -147,6 +147,8 @@ struct xg_frame_tb_info
147 GtkTextDirection dir; 147 GtkTextDirection dir;
148}; 148};
149 149
150bool xg_gtk_initialized; /* Used to make sure xwidget calls are possible */
151
150static GtkWidget * xg_get_widget_from_map (ptrdiff_t idx); 152static GtkWidget * xg_get_widget_from_map (ptrdiff_t idx);
151 153
152 154
@@ -5321,6 +5323,8 @@ xg_initialize (void)
5321#ifdef HAVE_FREETYPE 5323#ifdef HAVE_FREETYPE
5322 x_last_font_name = NULL; 5324 x_last_font_name = NULL;
5323#endif 5325#endif
5326
5327 xg_gtk_initialized = true;
5324} 5328}
5325 5329
5326#endif /* USE_GTK */ 5330#endif /* USE_GTK */
diff --git a/src/gtkutil.h b/src/gtkutil.h
index 7dcd549f5c0..3b074073e44 100644
--- a/src/gtkutil.h
+++ b/src/gtkutil.h
@@ -202,5 +202,6 @@ extern void xg_initialize (void);
202 to indicate that the callback should do nothing. */ 202 to indicate that the callback should do nothing. */
203extern bool xg_ignore_gtk_scrollbar; 203extern bool xg_ignore_gtk_scrollbar;
204 204
205extern bool xg_gtk_initialized;
205#endif /* USE_GTK */ 206#endif /* USE_GTK */
206#endif /* GTKUTIL_H */ 207#endif /* GTKUTIL_H */
diff --git a/src/xwidget.c b/src/xwidget.c
index 6faac107518..6da7a0bb3f4 100644
--- a/src/xwidget.c
+++ b/src/xwidget.c
@@ -78,6 +78,8 @@ Returns the newly constructed xwidget, or nil if construction fails. */)
78 Lisp_Object title, Lisp_Object width, Lisp_Object height, 78 Lisp_Object title, Lisp_Object width, Lisp_Object height,
79 Lisp_Object arguments, Lisp_Object buffer) 79 Lisp_Object arguments, Lisp_Object buffer)
80{ 80{
81 if (!xg_gtk_initialized)
82 error ("make-xwidget: GTK has not been initialized");
81 CHECK_SYMBOL (type); 83 CHECK_SYMBOL (type);
82 CHECK_FIXNAT (width); 84 CHECK_FIXNAT (width);
83 CHECK_FIXNAT (height); 85 CHECK_FIXNAT (height);
@@ -513,6 +515,10 @@ xwidget_init_view (struct xwidget *xww,
513 struct glyph_string *s, 515 struct glyph_string *s,
514 int x, int y) 516 int x, int y)
515{ 517{
518
519 if (!xg_gtk_initialized)
520 error ("xwidget_init_view: GTK has not been initialized");
521
516 struct xwidget_view *xv = allocate_xwidget_view (); 522 struct xwidget_view *xv = allocate_xwidget_view ();
517 Lisp_Object val; 523 Lisp_Object val;
518 524