From 16faff6a46f28b4db2e9b91e52b27404303f3197 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 9 Mar 2018 12:43:21 -0500 Subject: [PATCH 1/6] ; * lisp/org/org-table.el: Replace obsolete alias in comment. --- lisp/org/org-table.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 3932671e8b7..4bb5c91ce87 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -5428,7 +5428,7 @@ which will prompt for the width." ;; - orgtbl-uc-draw-cont (smooth unicode) ;; This is best viewed with the "DejaVu Sans Mono" font -;; (use M-x set-default-font). +;; (use M-x set-frame-font). (defun orgtbl-uc-draw-grid (value min max &optional width) "Draw a bar in a table using block unicode characters. From fbc7f9ae44a2a705e37cb7d1f9585cfaac8d13ee Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 9 Mar 2018 14:05:36 -0500 Subject: [PATCH 2/6] * test/lisp/international/mule-tests.el: Avoid local variables confusion. --- test/lisp/international/mule-tests.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/test/lisp/international/mule-tests.el b/test/lisp/international/mule-tests.el index 3c3bae14934..59c9ff5aab1 100644 --- a/test/lisp/international/mule-tests.el +++ b/test/lisp/international/mule-tests.el @@ -36,4 +36,7 @@ (find-auto-coding "" (buffer-size))) '(utf-8 . :coding))))) +;; Stop "Local Variables" above causing confusion when visiting this file. + + ;;; mule-tests.el ends here From a34ef529642360130b32a6b5032ad6de2e24baa8 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 10 Mar 2018 13:57:33 +0200 Subject: [PATCH 3/6] Document the "URL" keyword in library headers * doc/lispref/tips.texi (Library Headers): "URL" is an alias for "Homepage". Suggested by Peter Oliver . (Bug#30571) --- doc/lispref/tips.texi | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/doc/lispref/tips.texi b/doc/lispref/tips.texi index 0695d9b7b12..c62cfcfa8f6 100644 --- a/doc/lispref/tips.texi +++ b/doc/lispref/tips.texi @@ -1043,7 +1043,8 @@ the place to write arbitrary keywords that describe their package, rather than just the relevant Finder keywords. @item Homepage -This line states the homepage of the library. +@itemx URL +These lines state the homepage of the library. @item Package-Version If @samp{Version} is not suitable for use by the package manager, then From df0e7e2b9e98e45353d3555448cb0f7d5a20a00d Mon Sep 17 00:00:00 2001 From: "Charles A. Roelli" Date: Sat, 10 Mar 2018 19:19:00 +0100 Subject: [PATCH 4/6] Improve SVG documentation * doc/lispref/display.texi (ImageMagick Images): Remove an outdated comment that references a fixed bug. (SVG Images): Fix grammar, and call functions functions (there are no commands in lisp/svg.el). --- doc/lispref/display.texi | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi index dcd2fcffb49..2ac89ba970e 100644 --- a/doc/lispref/display.texi +++ b/doc/lispref/display.texi @@ -5387,7 +5387,6 @@ hint to ImageMagick to help it detect the image type. Specifies a rotation angle in degrees. @item :index @var{frame} -@c Doesn't work: https://debbugs.gnu.org/7978 @xref{Multi-Frame Images}. @end table @@ -5396,8 +5395,8 @@ Specifies a rotation angle in degrees. @cindex SVG images SVG (Scalable Vector Graphics) is an XML format for specifying images. -If your Emacs build has with SVG support, you can create and manipulate -these images with the following commands. +If your Emacs build has SVG support, you can create and manipulate +these images with the following functions. @defun svg-create width height &rest args Create a new, empty SVG image with the specified dimensions. @@ -5411,7 +5410,7 @@ The default width (in pixels) of any lines created. The default stroke color on any lines created. @end table -This function returns an SVG structure, and all the following commands +This function returns an SVG structure, and all the following functions work on that structure. @end defun From e244fed5e041c706dd10c60bd893634902f04aaa Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Thu, 8 Mar 2018 18:48:39 -0500 Subject: [PATCH 5/6] Clarify that nil doesn't match itself as a cl-case clause (Bug#30749) * lisp/emacs-lisp/cl-macs.el (cl-case): Mention that the ATOM => (ATOM) short form is only for non-nil ATOMs. --- lisp/emacs-lisp/cl-macs.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index e7f82ced488..971f4f926bd 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -761,13 +761,15 @@ The result of the body appears to the compiler as a quoted constant." ;;;###autoload (defmacro cl-case (expr &rest clauses) "Eval EXPR and choose among clauses on that value. -Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared -against each key in each KEYLIST; the corresponding BODY is evaluated. -If no clause succeeds, cl-case returns nil. A single atom may be used in -place of a KEYLIST of one atom. A KEYLIST of t or `otherwise' is -allowed only in the final clause, and matches if no other keys match. -Key values are compared by `eql'. -\n(fn EXPR (KEYLIST BODY...)...)" +Each clause looks like (KEYLIST BODY...). EXPR is evaluated and +compared against each key in each KEYLIST; the corresponding BODY +is evaluated. If no clause succeeds, cl-case returns nil. A +single non-nil atom may be used in place of a KEYLIST of one +atom. A KEYLIST of t or `otherwise' is allowed only in the final +clause, and matches if no other keys match. Key values are +compared by `eql'. + +\(fn EXPR (KEYLIST BODY...)...)" (declare (indent 1) (debug (form &rest (sexp body)))) (macroexp-let2 macroexp-copyable-p temp expr (let* ((head-list nil)) From 5c91ca8f30098cb2593ca375daa82d25aef03ad7 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 10 Mar 2018 18:26:01 -0800 Subject: [PATCH 6/6] Fix create_process bug breaking eudc-expand-inline Problem reported by Thomas Fitzsimmons (Bug#30762). * src/process.c (create_process) [HAVE_PTYS]: Call setsid even if !PTY_FLAG. --- src/process.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/process.c b/src/process.c index bccc3ac3992..b201e9b6acc 100644 --- a/src/process.c +++ b/src/process.c @@ -2087,9 +2087,9 @@ create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir) { /* Make the pty be the controlling terminal of the process. */ #ifdef HAVE_PTYS - /* First, disconnect its current controlling terminal. */ - if (pty_flag) - setsid (); + /* First, disconnect its current controlling terminal. + Do this even if !PTY_FLAG; see Bug#30762. */ + setsid (); /* Make the pty's terminal the controlling terminal. */ if (pty_flag && forkin >= 0) {