aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2018-01-09 15:29:25 -0800
committerPaul Eggert2018-01-09 15:29:25 -0800
commit646c8e56f8a11832f25523907b85d6522a99f361 (patch)
tree80ffd41982cfa018b827304ec5137ae6025f6080 /lisp
parent85f5ee14b55489845eaafbdf70d7f4e25ec44ed7 (diff)
parentd382d2bfc5072d4220b3e51785d22f70b147d63f (diff)
downloademacs-646c8e56f8a11832f25523907b85d6522a99f361.tar.gz
emacs-646c8e56f8a11832f25523907b85d6522a99f361.zip
Merge from origin/emacs-26
d382d2bfc5 * etc/DEBUG (Getting control to the debugger): Fix grammar. 687af4c8e8 * lisp/vc/vc.el (vc-region-history): log-view-vc-fileset h... 43e2aafae3 Don't bind dframe events on load (Bug#29599) ab31bf3c5f * lisp/textmodes/picture.el (picture-mode-exit): Doc fix. ... ed44d92fa6 * lisp/textmodes/picture.el (picture-open-line): Doc fix. ... b87a772612 Fix description of 'emacs-internal' a5256da588 Update PROBLEMS with selection-related issues c59ecb005e New customization variable for python-mode indentation (Bu... 4e20c8f220 Fix menu keyboard shortcuts on macOS (Bug#29595) # Conflicts: # etc/NEWS
Diffstat (limited to 'lisp')
-rw-r--r--lisp/dframe.el26
-rw-r--r--lisp/progmodes/python.el10
-rw-r--r--lisp/textmodes/picture.el10
-rw-r--r--lisp/vc/vc.el2
4 files changed, 31 insertions, 17 deletions
diff --git a/lisp/dframe.el b/lisp/dframe.el
index 9b0e550728a..12cedaf5201 100644
--- a/lisp/dframe.el
+++ b/lisp/dframe.el
@@ -288,6 +288,7 @@ CREATE-HOOK is a hook to run after creating a frame."
288 (set frame-var nil)) 288 (set frame-var nil))
289 ;; Set this as our currently attached frame 289 ;; Set this as our currently attached frame
290 (setq dframe-attached-frame (selected-frame)) 290 (setq dframe-attached-frame (selected-frame))
291 (run-hooks 'dframe-setup-hook)
291 (run-hooks popup-hook) 292 (run-hooks popup-hook)
292 ;; Updated the buffer passed in to contain all the hacks needed 293 ;; Updated the buffer passed in to contain all the hacks needed
293 ;; to make it work well in a dedicated window. 294 ;; to make it work well in a dedicated window.
@@ -543,16 +544,21 @@ CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode'."
543 ))) 544 )))
544 545
545;;; Special frame event proxies 546;;; Special frame event proxies
546;; 547(defvar dframe-setup-hook nil
547(if (boundp 'special-event-map) 548 "Used for setting frame special event bindings.")
548 (progn 549
549 (define-key special-event-map [make-frame-visible] 550(defun dframe-set-special-events ()
550 'dframe-handle-make-frame-visible) 551 (define-key special-event-map [make-frame-visible]
551 (define-key special-event-map [iconify-frame] 552 'dframe-handle-make-frame-visible)
552 'dframe-handle-iconify-frame) 553 (define-key special-event-map [iconify-frame]
553 (define-key special-event-map [delete-frame] 554 'dframe-handle-iconify-frame)
554 'dframe-handle-delete-frame)) 555 (define-key special-event-map [delete-frame]
555 ) 556 'dframe-handle-delete-frame)
557 ;; Only need to run once.
558 (remove-hook 'dframe-setup-hook #'dframe-set-special-events))
559
560(when (boundp 'special-event-map)
561 (add-hook 'dframe-setup-hook #'dframe-set-special-events))
556 562
557(defvar dframe-make-frame-visible-function nil 563(defvar dframe-make-frame-visible-function nil
558 "Function used when a dframe controlled frame is de-iconified. 564 "Function used when a dframe controlled frame is de-iconified.
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 68926b275ea..5baf6e0f80a 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -752,6 +752,12 @@ It makes underscores and dots word constituent chars.")
752 :type '(repeat symbol) 752 :type '(repeat symbol)
753 :group 'python) 753 :group 'python)
754 754
755(defcustom python-indent-def-block-scale 2
756 "Multiplier applied to indentation inside multi-line def blocks."
757 :version "26.1"
758 :type 'integer
759 :safe 'natnump)
760
755(defvar python-indent-current-level 0 761(defvar python-indent-current-level 0
756 "Deprecated var available for compatibility.") 762 "Deprecated var available for compatibility.")
757 763
@@ -1071,9 +1077,9 @@ possibilities can be narrowed to specific indentation points."
1071 (current-indentation))) 1077 (current-indentation)))
1072 opening-block-start-points)))) 1078 opening-block-start-points))))
1073 (`(,(or :inside-paren-newline-start-from-block) . ,start) 1079 (`(,(or :inside-paren-newline-start-from-block) . ,start)
1074 ;; Add two indentation levels to make the suite stand out.
1075 (goto-char start) 1080 (goto-char start)
1076 (+ (current-indentation) (* python-indent-offset 2)))))) 1081 (+ (current-indentation)
1082 (* python-indent-offset python-indent-def-block-scale))))))
1077 1083
1078(defun python-indent--calculate-levels (indentation) 1084(defun python-indent--calculate-levels (indentation)
1079 "Calculate levels list given INDENTATION. 1085 "Calculate levels list given INDENTATION.
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index caf76a41a1a..6836fd09a07 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -338,8 +338,9 @@ always moves to the beginning of a line."
338 (newline lines-left)))) 338 (newline lines-left))))
339 339
340(defun picture-open-line (arg) 340(defun picture-open-line (arg)
341 "Insert an empty line after the current line. 341 "Insert ARG empty lines after the current line.
342With positive argument insert that many lines." 342ARG must be positive.
343Interactively, ARG is the numeric argument, and defaults to 1."
343 (interactive "p") 344 (interactive "p")
344 (save-excursion 345 (save-excursion
345 (end-of-line) 346 (end-of-line)
@@ -788,8 +789,9 @@ they are not by default assigned to keys."
788 789
789(defun picture-mode-exit (&optional nostrip) 790(defun picture-mode-exit (&optional nostrip)
790 "Undo `picture-mode' and return to previous major mode. 791 "Undo `picture-mode' and return to previous major mode.
791With no argument, strip whitespace from end of every line in Picture buffer; 792With NOSTRIP omitted or nil, strip whitespace from end of every line
792 otherwise, just return to previous mode. 793 in Picture buffer; otherwise, just return to previous mode.
794Interactively, NOSTRIP is the prefix argument, and defaults to nil.
793Runs `picture-mode-exit-hook' at the end." 795Runs `picture-mode-exit-hook' at the end."
794 (interactive "P") 796 (interactive "P")
795 (if (not (eq major-mode 'picture-mode)) 797 (if (not (eq major-mode 'picture-mode))
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 44c0c207d67..dec7ebb43e4 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2430,7 +2430,7 @@ When called interactively with a prefix argument, prompt for REMOTE-LOCATION."
2430 (with-current-buffer buf 2430 (with-current-buffer buf
2431 (vc-call-backend backend 'region-history-mode) 2431 (vc-call-backend backend 'region-history-mode)
2432 (set (make-local-variable 'log-view-vc-backend) backend) 2432 (set (make-local-variable 'log-view-vc-backend) backend)
2433 (set (make-local-variable 'log-view-vc-fileset) file) 2433 (set (make-local-variable 'log-view-vc-fileset) (list file))
2434 (set (make-local-variable 'revert-buffer-function) 2434 (set (make-local-variable 'revert-buffer-function)
2435 (lambda (_ignore-auto _noconfirm) 2435 (lambda (_ignore-auto _noconfirm)
2436 (with-current-buffer buf 2436 (with-current-buffer buf