Commit 0ceb5d0b authored by Glenn Morris's avatar Glenn Morris

Merge from origin/emacs-27

5bf2ef38 Add more blackboard bold characters to TeX input method
c362a624 ; * lisp/progmodes/gdb-mi.el (gdb-handle-reply): Fix comme...
2b1e18ae Protect against errors in gdb-mi.el handlers
baceb8e8 Allow exiting the Python interpreter of a GDB session
2e66013d Ensure minibuffer input is added to history in read_minibuf
de411615 Tab-bar related fixes.
247f2cfa ; ChangeLog.3 fixes.
e1a712bb * admin/authors.el: Add missing entries.
parents fcac8fcf 5bf2ef38
......@@ -1427,7 +1427,7 @@
* lisp/startup.el (command-line): Allow XDG-style as well as old
style paths.
* doc/startup.texi: Document the above change.
* doc/emacs/custom.texi: Document the above change.
2019-04-11 Eli Zaretskii <eliz@gnu.org>
......@@ -206,6 +206,7 @@ files.")
("Yoni Rabkin" "Yoni Rabkin Katzenell")
("Yoshinori Koseki" "KOSEKI Yoshinori" "小関 吉則")
("Yutaka NIIBE" "NIIBE Yutaka")
(nil "stardiviner")
)
"Alist of author aliases.
......@@ -440,6 +441,24 @@ Changes to files matching one of the regexps in this list are not listed.")
"nt/subdirs.el"
"config.nt"
"nextstep/WISHLIST"
;; Removed, replaced by gitmerge.el
"admin/bzrmerge.el"
;; Removed in commit f5090b91299
"lib/fdatasync.c"
;; Removed as obsolete
"nt/README-ftp-server"
"admin/notes/font-backend"
"gnus-overrides.texi"
"CENSORSHIP"
"GNU"
"LINUX-GNU"
"THE-GNU-PROJECT"
"WHY-FREE"
"MORE.STUFF"
"notes/font-backend"
;; ada-mode has been deleted, now in GNU ELPA
"ada-mode.texi"
"GNUS-NEWS"
)
"List of files and directories to ignore.
Changes to files in this list are not listed.")
......@@ -752,6 +771,9 @@ Changes to files in this list are not listed.")
"org-mac-message.el" "org-mew.el" "org-w3m.el" "org-vm.el" "org-wl.el"
"org-mks.el" "org-remember.el" "org-xoxo.el" "org-docbook.el"
"org-freemind.el" "ox-jsinfo.el"
"org-irc.el" "org-rmail.el" "org-docview.el" "org-keys.el" "org-mhe.el"
"org-gnus.el" "org-bibtex.el" "org-bbdb.el" "org-info.el" "org-eshell.el"
"ob-keys.el"
"org-exp-blocks.el" ; maybe this is ob-exp now? dunno
"org-lparse.el"
"org-special-blocks.el" "org-taskjuggler.el"
......@@ -1076,6 +1098,11 @@ in the repository.")
("src/module.c" . "src/emacs-module.c")
;; gnulib
("lib/strftime.c" . "lib/nstrftime.c")
("test/src/regex-tests.el" . "test/src/regex-emacs-tests.el")
("test/lisp/emacs-lisp/cl-tests.el" . "test/lisp/obsolete/cl-tests.el")
("lisp/net/starttls.el" . "lisp/obsolete/starttls.el")
("url-ns.el" . "lisp/obsolete/url-ns.el")
("gnus-news.texi" . "doc/misc/gnus.texi")
)
"Alist of files which have been renamed during their lifetime.
Elements are (OLDNAME . NEWNAME).")
......
......@@ -324,7 +324,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
;; FIXME?
;; :initialize custom-initialize-default
:set custom-set-minor-mode)
(tab-bar-mode (frames mouse) boolean nil
(tab-bar-mode tab-bar boolean nil
;; :initialize custom-initialize-default
:set custom-set-minor-mode)
(tool-bar-mode (frames mouse) boolean nil
......
......@@ -946,7 +946,12 @@ which means to truncate VAR's value to at most MAX-SIZE elements
")\n"))))
;; ----------------------------------------------------------------------------
(defvar desktop-buffers-not-to-save-function nil)
(defvar desktop-buffers-not-to-save-function nil
"Function identifying buffers that are to be excluded from saving.
Like `desktop-buffers-not-to-save' it can be used to check whether
a given buffer should not be saved. It takes the same arguments as
`desktop-save-buffer-p' and should return nil if buffer should not
have its state saved in the desktop file.")
(defun desktop-save-buffer-p (filename bufname mode &rest rest)
"Return t if buffer should have its state saved in the desktop file.
......
......@@ -656,10 +656,34 @@ system, including many technical ones. Examples:
("\\wp" ?)
("\\wr" ?)
("\\Bbb{N}" ?) ; AMS commands for blackboard bold
("\\Bbb{P}" ?) ; Also sometimes \mathbb.
("\\Bbb{A}" ?𝔸) ; AMS commands for blackboard bold
("\\Bbb{B}" ?𝔹) ; Also sometimes \mathbb.
("\\Bbb{C}" ?)
("\\Bbb{D}" ?𝔻)
("\\Bbb{E}" ?𝔼)
("\\Bbb{F}" ?𝔽)
("\\Bbb{G}" ?𝔾)
("\\Bbb{H}" ?)
("\\Bbb{I}" ?𝕀)
("\\Bbb{J}" ?𝕁)
("\\Bbb{K}" ?𝕂)
("\\Bbb{L}" ?𝕃)
("\\Bbb{M}" ?𝕄)
("\\Bbb{N}" ?)
("\\Bbb{O}" ?𝕆)
("\\Bbb{P}" ?)
("\\Bbb{Q}" ?)
("\\Bbb{R}" ?)
("\\Bbb{S}" ?𝕊)
("\\Bbb{T}" ?𝕋)
("\\Bbb{U}" ?𝕌)
("\\Bbb{V}" ?𝕍)
("\\Bbb{W}" ?𝕎)
("\\Bbb{X}" ?𝕏)
("\\Bbb{Y}" ?𝕐)
("\\Bbb{Z}" ?)
("\\Bbb{1}" ?𝟙)
("\\Bbb{2}" ?𝟚)
("--" ?)
("---" ?)
;; We used to use ~ for NBSP but that's inconvenient and may even look like
......
......@@ -324,7 +324,10 @@ in `gdb-handler-list' and clears all pending handlers invalidated
by the reception of this reply."
(let ((handler-function (gdb-get-handler-function token-number)))
(when handler-function
(funcall handler-function)
;; Protect against errors in handler-function.
(condition-case err
(funcall handler-function)
(error (message (error-message-string err))))
(gdb-delete-handler token-number))))
(defun gdb-remove-all-pending-triggers ()
......@@ -1001,8 +1004,10 @@ no input, and GDB is waiting for input."
;; Sending an EOF does not work with GDB-MI; submit an
;; explicit quit command.
(progn
(insert "quit")
(comint-send-input t t))
(if (> gdb-control-level 0)
(process-send-eof proc)
(insert "quit")
(comint-send-input t t)))
(delete-char arg))))
(defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.")
......
......@@ -1123,7 +1123,7 @@ function `tab-bar-tab-name-function'."
(define-minor-mode tab-bar-history-mode
"Toggle tab history mode for the tab bar."
:global t
:global t :group 'tab-bar
(if tab-bar-history-mode
(progn
(when (and tab-bar-mode (not (get-text-property 0 'display tab-bar-back-button)))
......@@ -1400,7 +1400,7 @@ in the selected frame."
((framep all-frames) (list all-frames))
(t (list (selected-frame)))))
(defun tab-bar-get-buffer-tab (buffer-or-name &optional all-frames)
(defun tab-bar-get-buffer-tab (buffer-or-name &optional all-frames ignore-current-tab)
"Return a tab owning a window whose buffer is BUFFER-OR-NAME.
BUFFER-OR-NAME may be a buffer or a buffer name and defaults to
the current buffer.
......@@ -1414,7 +1414,10 @@ The optional argument ALL-FRAMES specifies the frames to consider:
- A frame means consider all tabs on that frame only.
Any other value of ALL-FRAMES means consider all tabs on the
selected frame and no others."
selected frame and no others.
When the optional argument IGNORE-CURRENT-TAB is non-nil,
don't take into account the buffers in the currently selected tab."
(let ((buffer (if buffer-or-name
(get-buffer buffer-or-name)
(current-buffer))))
......@@ -1424,7 +1427,8 @@ selected frame and no others."
(seq-some
(lambda (tab)
(when (if (eq (car tab) 'current-tab)
(get-buffer-window buffer frame)
(unless ignore-current-tab
(get-buffer-window buffer frame))
(let* ((state (alist-get 'ws tab))
(buffers (when state
(window-state-buffers state))))
......
......@@ -697,10 +697,6 @@ read_minibuf (Lisp_Object map, Lisp_Object initial, Lisp_Object prompt,
else
histstring = Qnil;
/* If Lisp form desired instead of string, parse it. */
if (expflag)
val = string_to_object (val, defalt);
/* The appropriate frame will get selected
in set-window-configuration. */
unbind_to (count, Qnil);
......@@ -711,6 +707,10 @@ read_minibuf (Lisp_Object map, Lisp_Object initial, Lisp_Object prompt,
if (! (NILP (Vhistory_add_new_input) || NILP (histstring)))
call2 (intern ("add-to-history"), histvar, histstring);
/* If Lisp form desired instead of string, parse it. */
if (expflag)
val = string_to_object (val, defalt);
return val;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment