help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: syncing ediff


From: Douglas Lewan
Subject: Re: syncing ediff
Date: Thu, 8 Mar 2012 05:52:08 -0800 (PST)

Well, I couldn't find what I want, so here is a little hack that is adequate. It's definitely geared toward C code.

If anyone would like to make it good, I'd be very happy.

;;; Commentary:

;; Sometimes ediff gets confused about which regions should correspond.
;; (This seems most common around blank or effectively blank lines.)
;; The problem really only arises from diffing long things (usually files).
;; This file contains code to help diff two things (usually files)
;; just one function at a time.

;;; Documentation:
 
;; To use this:
;; (1) Load this code.
;; (2) Open the two files to be diffed in exactly 2 windows.
;; (3) Put the point in the function of interest in one of those windows.
;; (4) M-x ediff-defun-at-point
 
;;; Code:

;;
;; Dependencies
;;
(require 'which-func)


;;
;; Vars
;;
(defvar *ca-symbol-re* "\\sw\\(?:\\sw\\|\\s_\\)*"
  "RE to match a symbol in C.")

(defvar *ca-type-re*
  (concat
   "\\(?:static\\|extern\\s-+\\)?" ;Maybe it's qualified
   *ca-symbol-re* "\\s-*"  ;A type
   "\\**"    ;Maybe it's a pointer
   )
  "RE to match a type in a C declaration.")

;;
;; Commands
;;
(defun narrow-to-this-defun-in-both-windows ()
  "Do that.
CAVEAT: Different packages have different ideas
about what function they're in at the beginning of a function declaration."
  (interactive)
  (let ((function-name (which-function)))
    (widen)
    (narrow-to-defun)
    (other-window 1)
    (widen)
    (goto-char (point-min))
    (if (re-search-forward (format (concat "^" *ca-type-re* "\\s-+" "%s" "\\s-*(") function-name (point-max) t))
 (narrow-to-defun)
      (error "That function doesn't exist in the other window."))
    (previous-window)))
(defun ediff-defun-at-point ()
  (interactive)
  (narrow-to-this-defun-in-both-windows)
  (ediff-buffers (window-buffer)
   (window-buffer (next-window))))


,Doug
Douglas Lewan
(908) 720-7908
d_lewan2000@yahoo.com
  

reply via email to

[Prev in Thread] Current Thread [Next in Thread]