diff options
Diffstat (limited to 'lisp/vc/ediff-init.el')
| -rw-r--r-- | lisp/vc/ediff-init.el | 39 |
1 files changed, 5 insertions, 34 deletions
diff --git a/lisp/vc/ediff-init.el b/lisp/vc/ediff-init.el index 18c396f164c..f98a7ed560c 100644 --- a/lisp/vc/ediff-init.el +++ b/lisp/vc/ediff-init.el @@ -1,4 +1,4 @@ -;;; ediff-init.el --- Macros, variables, and defsubsts used by Ediff -*- lexical-binding: nil; -*- +;;; ediff-init.el --- Macros, variables, and defsubsts used by Ediff -*- lexical-binding:t -*- ;; Copyright (C) 1994-2019 Free Software Foundation, Inc. @@ -86,7 +86,7 @@ that Ediff doesn't know about.") ;; Plagiarized from `emerge-defvar-local' for XEmacs. (defmacro ediff-defvar-local (var value doc) "Defines VAR as a local variable." - (declare (indent defun)) + (declare (indent defun) (doc-string 3)) `(progn (defvar ,var ,value ,doc) (make-variable-buffer-local ',var) @@ -502,7 +502,7 @@ set local variables that determine how the display looks like." ;; Selective browsing -(ediff-defvar-local ediff-skip-diff-region-function 'ediff-show-all-diffs +(ediff-defvar-local ediff-skip-diff-region-function #'ediff-show-all-diffs "Function that determines the next/previous diff region to show. Should return t for regions to be ignored and nil otherwise. This function gets a region number as an argument. The region number @@ -740,26 +740,6 @@ to temp files in buffer jobs and when Ediff needs to find fine differences." (defalias 'ediff-delete-overlay (if (featurep 'xemacs) 'delete-extent 'delete-overlay)) -;; Assumes that emacs-major-version and emacs-minor-version are defined. -(defun ediff-check-version (op major minor &optional type-of-emacs) - "Check the current version against MAJOR and MINOR version numbers. -The comparison uses operator OP, which may be any of: =, >, >=, <, <=. -TYPE-OF-EMACS is either `emacs' or `xemacs'." - (declare (obsolete version< "23.1")) - (and (cond ((eq type-of-emacs 'xemacs) (featurep 'xemacs)) - ((eq type-of-emacs 'emacs) (featurep 'emacs)) - (t)) - (cond ((eq op '=) (and (= emacs-minor-version minor) - (= emacs-major-version major))) - ((memq op '(> >= < <=)) - (and (or (funcall op emacs-major-version major) - (= emacs-major-version major)) - (if (= emacs-major-version major) - (funcall op emacs-minor-version minor) - t))) - (t - (user-error "%S: Invalid op in ediff-check-version" op))))) - (defun ediff-color-display-p () (condition-case nil (if (featurep 'xemacs) @@ -1508,7 +1488,7 @@ This default should work without changes." ;; this record is itself a vector (defsubst ediff-clear-fine-diff-vector (diff-record) (if diff-record - (mapc 'ediff-delete-overlay + (mapc #'ediff-delete-overlay (ediff-get-fine-diff-vector-from-diff-record diff-record)))) (defsubst ediff-clear-fine-differences-in-one-buffer (n buf-type) @@ -1779,7 +1759,7 @@ Unless optional argument INPLACE is non-nil, return a new string." (defsubst ediff-message-if-verbose (string &rest args) (if ediff-verbose-p - (apply 'message string args))) + (apply #'message string args))) (defun ediff-file-attributes (filename attr-number) (if (ediff-listable-file filename) @@ -1818,13 +1798,4 @@ Unless optional argument INPLACE is non-nil, return a new string." (provide 'ediff-init) - - - -;; Local Variables: -;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) -;; eval: (put 'ediff-with-current-buffer 'lisp-indent-hook 1) -;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) -;; End: - ;;; ediff-init.el ends here |