procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Small fixes prompted by make check-declare

Browse source 
* lisp/frame.el (x-focus-frame): Update declaration.
(ns-mouse-absolute-pixel-position): Fix declaration.
* lisp/vc/diff-mode.el (diff-refine-hunk):
Use smerge-refine-regions rather than obsolete alias.
(smerge-refine-subst): Remove declaration, no longer relevant.
This commit is contained in:
Glenn Morris 2017-12-14 21:31:28 -05:00
parent 541a60108d
commit 780407cff1
2 changed files with 5 additions and 8 deletions

4
lisp/frame.el
View file

@ -800,7 +800,7 @@ the user during startup."
(nreverse frame-initial-geometry-arguments)) (nreverse frame-initial-geometry-arguments))
(cdr param-list)) (cdr param-list))
(declare-function x-focus-frame "frame.c" (frame)) (declare-function x-focus-frame "frame.c" (frame &optional noactivate))
(defun select-frame-set-input-focus (frame &optional norecord) (defun select-frame-set-input-focus (frame &optional norecord)
"Select FRAME, raise it, and set input focus, if possible. "Select FRAME, raise it, and set input focus, if possible.
@ -1484,7 +1484,7 @@ FRAME."
(declare-function w32-mouse-absolute-pixel-position "w32fns.c") (declare-function w32-mouse-absolute-pixel-position "w32fns.c")
(declare-function x-mouse-absolute-pixel-position "xfns.c") (declare-function x-mouse-absolute-pixel-position "xfns.c")
(declare-function ns-mouse-absolute-pixel-position "nsfns.c") (declare-function ns-mouse-absolute-pixel-position "nsfns.m")
(defun mouse-absolute-pixel-position () (defun mouse-absolute-pixel-position ()
"Return absolute position of mouse cursor in pixels. "Return absolute position of mouse cursor in pixels.

9
lisp/vc/diff-mode.el
View file

@ -2005,9 +2005,6 @@ For use in `add-log-current-defun-function'."
(replace-match (cdr (assq (char-before) '((?+ . "-") (?> . "<")))))) (replace-match (cdr (assq (char-before) '((?+ . "-") (?> . "<"))))))
) )
(declare-function smerge-refine-subst "smerge-mode"
(beg1 end1 beg2 end2 props-c &optional preproc props-r props-a))
(defun diff--forward-while-leading-char (char bound) (defun diff--forward-while-leading-char (char bound)
"Move point until reaching a line not starting with CHAR. "Move point until reaching a line not starting with CHAR.
Return new point, if it was moved." Return new point, if it was moved."
@ -2049,13 +2046,13 @@ Return new point, if it was moved."
(diff--forward-while-leading-char ?+ end) (diff--forward-while-leading-char ?+ end)
(progn (diff--forward-while-leading-char ?\\ end) (progn (diff--forward-while-leading-char ?\\ end)
(setq end-add (point)))) (setq end-add (point))))
(smerge-refine-subst beg-del beg-add beg-add end-add (smerge-refine-regions beg-del beg-add beg-add end-add
nil 'diff-refine-preproc props-r props-a))))) nil 'diff-refine-preproc props-r props-a)))))
(`context (`context
(let* ((middle (save-excursion (re-search-forward "^---"))) (let* ((middle (save-excursion (re-search-forward "^---")))
(other middle)) (other middle))
(while (re-search-forward "^\\(?:!.*\n\\)+" middle t) (while (re-search-forward "^\\(?:!.*\n\\)+" middle t)
(smerge-refine-subst (match-beginning 0) (match-end 0) (smerge-refine-regions (match-beginning 0) (match-end 0)
(save-excursion (save-excursion
(goto-char other) (goto-char other)
(re-search-forward "^\\(?:!.*\n\\)+" end) (re-search-forward "^\\(?:!.*\n\\)+" end)
@ -2070,7 +2067,7 @@ Return new point, if it was moved."
(let ((beg1 (1+ (point)))) (let ((beg1 (1+ (point))))
(when (re-search-forward "^---.*\n" end t) (when (re-search-forward "^---.*\n" end t)
;; It's a combined add&remove, so there's something to do. ;; It's a combined add&remove, so there's something to do.
(smerge-refine-subst beg1 (match-beginning 0) (smerge-refine-regions beg1 (match-beginning 0)
(match-end 0) end (match-end 0) end
nil 'diff-refine-preproc props-r props-a))))))))) nil 'diff-refine-preproc props-r props-a)))))))))