diff options
| author | Glenn Morris | 2017-12-16 12:18:45 -0800 |
|---|---|---|
| committer | Glenn Morris | 2017-12-16 12:18:45 -0800 |
| commit | 8e46d93dcdabfa9fb099345fa12378479b4dbe63 (patch) | |
| tree | 3586203b53367f0bc71460e31caee41a79b84d8f /lisp/vc | |
| parent | da2c441079c74b18399176df3f92613436ef53dc (diff) | |
| parent | 28e0261890e6335cb49cc03c47c206ce9c022448 (diff) | |
| download | emacs-8e46d93dcdabfa9fb099345fa12378479b4dbe63.tar.gz emacs-8e46d93dcdabfa9fb099345fa12378479b4dbe63.zip | |
Merge from origin/emacs-26
28e0261890 * lisp/progmodes/cc-defs.el (c-version): Update to 5.33.1.
ac53084f9b Improve fix for Bug#29712
ffd4771560 * doc/lispref/sequences.texi (Sequence Functions): Improve...
f274cbd185 Avoid reordering of output in 'shr-insert-document'
7890864413 Improve documentation of 'invisible-p'
a1327bbc64 Remove one more check that Vframe_list is non-nil
63b6281fdd Fix off-by-one error in 'css--hex-color'
804b37ca63 Save and restore text-pixel height and width of frames (Bu...
777fe94661 Partially revert "Mention new strictness for &optional, &r...
ad17db7964 * lisp/vc/smerge-mode.el (smerge-refine): Respect font-loc...
5a7d0095a4 * lisp/vc/smerge-mode.el (smerge-refine): Replace obsolete...
e019c35df6 FOR_EACH_FRAME no longer assumes frame-list
d64b88da2f * src/font.c (Ffont_info): Doc fix. (Bug#29682)
92b2604a7f Modernise message.el face spec syntax
b1efbe6564 Update message.el obsolete face aliases
2494c14e76 ; * lisp/comint.el (comint-terminfo-terminal): Add a :vers...
12ad276d15 Improve documentation of TERM environment variable
8ed529f0f3 Add option to configure comint TERM
889f07c352 Better support utf-8-with-signature and utf-8-hfs in XML/HTML
a2697fac0e * lisp/menu-bar.el (menu-bar-mode): Doc fix.
ffb50eace6 ; * etc/NEWS: Fix last change.
95606af8b0 Fix Bug#29712 in tramp-tests.el
9bf66c6bee Don't run FOR_EACH_FRAME when there's no frame left (Bug#2...
c2a88ec8e8 * lisp/textmodes/tex-mode.el: Ensure uncompiled file is lo...
b178870528 Remember password change for IMAP in Gnus (Bug#29692)
a21dac18bb Add %DUMBFW to the default GnuTLS priority strings
780407cff1 Small fixes prompted by make check-declare
541a60108d Fix some custom groups
e220d6e112 Fix fontification of first declaration within a C++ lambda...
aa66da220c * src/data.c (Fadd_variable_watcher): Doc fix.
f838210b01 Fix misfontification of C++ member initialization list aft...
232c6465ce Fix doc-string of Fbuffer_list
3f9aac68d7 Don't raise an extraneous frame (bug#29696)
e7b1111155 Mention new strictness for &optional, &rest in arglists (B...
4cb8696e47 Don't misfontify "foo ()" inside C++ initialization parent...
ce31e726ad Fixes for defcustoms, prompted by cus-test-opts
aacd1e14fc * lisp/net/newst-backend.el (newsticker--raw-url-list-defa...
7e2f4d3d41 * lisp/htmlfontify.el (hfy-which-etags): Fix it.
52d2a690f6 Add missing :version tags revealed by cusver-check
f5d0360234 Escape column-zero doc parens
# Conflicts:
# etc/NEWS
Diffstat (limited to 'lisp/vc')
| -rw-r--r-- | lisp/vc/cvs-status.el | 5 | ||||
| -rw-r--r-- | lisp/vc/diff-mode.el | 9 | ||||
| -rw-r--r-- | lisp/vc/emerge.el | 6 | ||||
| -rw-r--r-- | lisp/vc/smerge-mode.el | 10 | ||||
| -rw-r--r-- | lisp/vc/vc-hg.el | 2 | ||||
| -rw-r--r-- | lisp/vc/vc-hooks.el | 4 |
6 files changed, 13 insertions, 23 deletions
diff --git a/lisp/vc/cvs-status.el b/lisp/vc/cvs-status.el index 770791a3c09..3124a61422b 100644 --- a/lisp/vc/cvs-status.el +++ b/lisp/vc/cvs-status.el | |||
| @@ -33,11 +33,6 @@ | |||
| 33 | 33 | ||
| 34 | ;;; | 34 | ;;; |
| 35 | 35 | ||
| 36 | (defgroup cvs-status nil | ||
| 37 | "Major mode for browsing `cvs status' output." | ||
| 38 | :group 'pcl-cvs | ||
| 39 | :prefix "cvs-status-") | ||
| 40 | |||
| 41 | (easy-mmode-defmap cvs-status-mode-map | 36 | (easy-mmode-defmap cvs-status-mode-map |
| 42 | '(("n" . next-line) | 37 | '(("n" . next-line) |
| 43 | ("p" . previous-line) | 38 | ("p" . previous-line) |
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index df9627abdf0..df33d10ed0c 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el | |||
| @@ -2005,9 +2005,6 @@ For use in `add-log-current-defun-function'." | |||
| 2005 | (replace-match (cdr (assq (char-before) '((?+ . "-") (?> . "<")))))) | 2005 | (replace-match (cdr (assq (char-before) '((?+ . "-") (?> . "<")))))) |
| 2006 | ) | 2006 | ) |
| 2007 | 2007 | ||
| 2008 | (declare-function smerge-refine-subst "smerge-mode" | ||
| 2009 | (beg1 end1 beg2 end2 props-c &optional preproc props-r props-a)) | ||
| 2010 | |||
| 2011 | (defun diff--forward-while-leading-char (char bound) | 2008 | (defun diff--forward-while-leading-char (char bound) |
| 2012 | "Move point until reaching a line not starting with CHAR. | 2009 | "Move point until reaching a line not starting with CHAR. |
| 2013 | Return new point, if it was moved." | 2010 | Return new point, if it was moved." |
| @@ -2049,13 +2046,13 @@ Return new point, if it was moved." | |||
| 2049 | (diff--forward-while-leading-char ?+ end) | 2046 | (diff--forward-while-leading-char ?+ end) |
| 2050 | (progn (diff--forward-while-leading-char ?\\ end) | 2047 | (progn (diff--forward-while-leading-char ?\\ end) |
| 2051 | (setq end-add (point)))) | 2048 | (setq end-add (point)))) |
| 2052 | (smerge-refine-subst beg-del beg-add beg-add end-add | 2049 | (smerge-refine-regions beg-del beg-add beg-add end-add |
| 2053 | nil 'diff-refine-preproc props-r props-a))))) | 2050 | nil 'diff-refine-preproc props-r props-a))))) |
| 2054 | (`context | 2051 | (`context |
| 2055 | (let* ((middle (save-excursion (re-search-forward "^---"))) | 2052 | (let* ((middle (save-excursion (re-search-forward "^---"))) |
| 2056 | (other middle)) | 2053 | (other middle)) |
| 2057 | (while (re-search-forward "^\\(?:!.*\n\\)+" middle t) | 2054 | (while (re-search-forward "^\\(?:!.*\n\\)+" middle t) |
| 2058 | (smerge-refine-subst (match-beginning 0) (match-end 0) | 2055 | (smerge-refine-regions (match-beginning 0) (match-end 0) |
| 2059 | (save-excursion | 2056 | (save-excursion |
| 2060 | (goto-char other) | 2057 | (goto-char other) |
| 2061 | (re-search-forward "^\\(?:!.*\n\\)+" end) | 2058 | (re-search-forward "^\\(?:!.*\n\\)+" end) |
| @@ -2070,7 +2067,7 @@ Return new point, if it was moved." | |||
| 2070 | (let ((beg1 (1+ (point)))) | 2067 | (let ((beg1 (1+ (point)))) |
| 2071 | (when (re-search-forward "^---.*\n" end t) | 2068 | (when (re-search-forward "^---.*\n" end t) |
| 2072 | ;; It's a combined add&remove, so there's something to do. | 2069 | ;; It's a combined add&remove, so there's something to do. |
| 2073 | (smerge-refine-subst beg1 (match-beginning 0) | 2070 | (smerge-refine-regions beg1 (match-beginning 0) |
| 2074 | (match-end 0) end | 2071 | (match-end 0) end |
| 2075 | nil 'diff-refine-preproc props-r props-a))))))))) | 2072 | nil 'diff-refine-preproc props-r props-a))))))))) |
| 2076 | 2073 | ||
diff --git a/lisp/vc/emerge.el b/lisp/vc/emerge.el index 9c25ec43321..3f945bbb2bf 100644 --- a/lisp/vc/emerge.el +++ b/lisp/vc/emerge.el | |||
| @@ -3171,11 +3171,9 @@ See also `auto-save-file-name-p'." | |||
| 3171 | (setq limit (1+ (match-end 0))))) | 3171 | (setq limit (1+ (match-end 0))))) |
| 3172 | s) | 3172 | s) |
| 3173 | 3173 | ||
| 3174 | ;; Metacharacters that have to be protected from the shell when executing | ||
| 3175 | ;; a diff/diff3 command. | ||
| 3176 | (defcustom emerge-metachars nil | 3174 | (defcustom emerge-metachars nil |
| 3177 | "Obsolete, emerge now uses `shell-quote-argument'." | 3175 | "No longer used. Emerge now uses `shell-quote-argument'." |
| 3178 | :type 'regexp | 3176 | :type '(choice (const nil) regexp) |
| 3179 | :group 'emerge) | 3177 | :group 'emerge) |
| 3180 | (make-obsolete-variable 'emerge-metachars nil "26.1") | 3178 | (make-obsolete-variable 'emerge-metachars nil "26.1") |
| 3181 | 3179 | ||
diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el index b988463de1e..ea1e0c726fd 100644 --- a/lisp/vc/smerge-mode.el +++ b/lisp/vc/smerge-mode.el | |||
| @@ -919,7 +919,7 @@ Its behavior has mainly two restrictions: | |||
| 919 | after the newline. | 919 | after the newline. |
| 920 | This only matters if `smerge-refine-ignore-whitespace' is nil. | 920 | This only matters if `smerge-refine-ignore-whitespace' is nil. |
| 921 | - it needs to be unaffected by changes performed by the `preproc' argument | 921 | - it needs to be unaffected by changes performed by the `preproc' argument |
| 922 | to `smerge-refine-subst'. | 922 | to `smerge-refine-regions'. |
| 923 | This only matters if `smerge-refine-weight-hack' is nil.") | 923 | This only matters if `smerge-refine-weight-hack' is nil.") |
| 924 | 924 | ||
| 925 | (defvar smerge-refine-ignore-whitespace t | 925 | (defvar smerge-refine-ignore-whitespace t |
| @@ -1188,15 +1188,15 @@ repeating the command will highlight other two parts." | |||
| 1188 | (put-text-property (match-beginning 0) (1+ (match-beginning 0)) | 1188 | (put-text-property (match-beginning 0) (1+ (match-beginning 0)) |
| 1189 | 'smerge-refine-part | 1189 | 'smerge-refine-part |
| 1190 | (cons (buffer-chars-modified-tick) part))) | 1190 | (cons (buffer-chars-modified-tick) part))) |
| 1191 | (smerge-refine-subst (match-beginning n1) (match-end n1) | 1191 | (smerge-refine-regions (match-beginning n1) (match-end n1) |
| 1192 | (match-beginning n2) (match-end n2) | 1192 | (match-beginning n2) (match-end n2) |
| 1193 | (if smerge-use-changed-face | 1193 | (if smerge-use-changed-face |
| 1194 | '((smerge . refine) (face . smerge-refined-change))) | 1194 | '((smerge . refine) (font-lock-face . smerge-refined-change))) |
| 1195 | nil | 1195 | nil |
| 1196 | (unless smerge-use-changed-face | 1196 | (unless smerge-use-changed-face |
| 1197 | '((smerge . refine) (face . smerge-refined-removed))) | 1197 | '((smerge . refine) (font-lock-face . smerge-refined-removed))) |
| 1198 | (unless smerge-use-changed-face | 1198 | (unless smerge-use-changed-face |
| 1199 | '((smerge . refine) (face . smerge-refined-added)))))) | 1199 | '((smerge . refine) (font-lock-face . smerge-refined-added)))))) |
| 1200 | 1200 | ||
| 1201 | (defun smerge-swap () | 1201 | (defun smerge-swap () |
| 1202 | "Swap the \"Upper\" and the \"Lower\" chunks. | 1202 | "Swap the \"Upper\" and the \"Lower\" chunks. |
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index 9e597a209a7..7962b70f20a 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el | |||
| @@ -278,7 +278,7 @@ within the repository. | |||
| 278 | 278 | ||
| 279 | If no list entry produces a useful revision, return `nil'." | 279 | If no list entry produces a useful revision, return `nil'." |
| 280 | :type '(repeat (choice | 280 | :type '(repeat (choice |
| 281 | (const :tag "Active bookmark" 'bookmark) | 281 | (const :tag "Active bookmark" builtin-active-bookmark) |
| 282 | (string :tag "Hg template") | 282 | (string :tag "Hg template") |
| 283 | (function :tag "Custom"))) | 283 | (function :tag "Custom"))) |
| 284 | :version "26.1" | 284 | :version "26.1" |
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el index 99c8211ad5f..394b86c024b 100644 --- a/lisp/vc/vc-hooks.el +++ b/lisp/vc/vc-hooks.el | |||
| @@ -34,9 +34,9 @@ | |||
| 34 | 34 | ||
| 35 | ;; Faces | 35 | ;; Faces |
| 36 | 36 | ||
| 37 | (defgroup vc-state-faces nil | 37 | (defgroup vc-faces nil |
| 38 | "Faces used in the mode line by the VC state indicator." | 38 | "Faces used in the mode line by the VC state indicator." |
| 39 | :group 'vc-faces | 39 | :group 'vc |
| 40 | :group 'mode-line | 40 | :group 'mode-line |
| 41 | :version "25.1") | 41 | :version "25.1") |
| 42 | 42 | ||