aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/vc
diff options
context:
space:
mode:
authorGlenn Morris2017-12-16 12:18:45 -0800
committerGlenn Morris2017-12-16 12:18:45 -0800
commit8e46d93dcdabfa9fb099345fa12378479b4dbe63 (patch)
tree3586203b53367f0bc71460e31caee41a79b84d8f /lisp/vc
parentda2c441079c74b18399176df3f92613436ef53dc (diff)
parent28e0261890e6335cb49cc03c47c206ce9c022448 (diff)
downloademacs-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.el5
-rw-r--r--lisp/vc/diff-mode.el9
-rw-r--r--lisp/vc/emerge.el6
-rw-r--r--lisp/vc/smerge-mode.el10
-rw-r--r--lisp/vc/vc-hg.el2
-rw-r--r--lisp/vc/vc-hooks.el4
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.
2013Return new point, if it was moved." 2010Return 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
279If no list entry produces a useful revision, return `nil'." 279If 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