← Back to branch summary

~ubuntu-branches/ubuntu/karmic/emacs-snapshot/karmic

« back to all changes in this revision

Viewing changes to lisp/ediff.el

  • Committer: Bazaar Package Importer
  • Author(s): Reinhard Tartler
  • Date: 2009-04-05 09:14:30 UTC
  • mto: This revision was merged to the branch mainline in revision 34.
  • Revision ID: james.westby@ubuntu.com-20090405091430-nw07lynn2arotjbe
Tags: upstream-20090320
Import upstream version 20090320

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/ediff.el
1
1
;;; ediff.el --- a comprehensive visual interface to diff & patch
2
2
 
3
3
;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
4
 
;;   2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
 
4
;;   2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
5
5
 
6
6
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
7
7
;; Created: February 2, 1994
13
13
;; of the bug report be sent to the maintainer's email address.
14
14
 
15
15
(defconst ediff-version "2.81.2" "The current version of Ediff")
16
 
(defconst ediff-date "April 06, 2008" "Date of last update")
 
16
(defconst ediff-date "November 22, 2008" "Date of last update")
17
17
 
18
18
 
19
19
;; This file is part of GNU Emacs.
133
133
 
134
134
 
135
135
(defcustom ediff-use-last-dir nil
136
 
  "*If t, Ediff will use previous directory as default when reading file name."
 
136
  "If t, Ediff will use previous directory as default when reading file name."
137
137
  :type 'boolean
138
138
  :group 'ediff)
139
139
 
273
273
(defalias 'ediff3 'ediff-files3)
274
274
 
275
275
 
276
 
;; Visit FILE and arrange its buffer to Ediff's liking.
277
 
;; FILE is actually a variable symbol that must contain a true file name.
278
 
;; BUFFER-NAME is a variable symbol, which will get the buffer object into
279
 
;; which FILE is read.
280
 
;; LAST-DIR is the directory variable symbol where FILE's
281
 
;; directory name should be returned.  HOOKS-VAR is a variable symbol that will
282
 
;; be assigned the hook to be executed after `ediff-startup' is finished.
283
 
;; `ediff-find-file' arranges that the temp files it might create will be
284
 
;; deleted.
285
276
(defun ediff-find-file (file-var buffer-name &optional last-dir hooks-var)
 
277
  "Visit FILE and arrange its buffer to Ediff's liking.
 
278
FILE-VAR is actually a variable symbol whose value must contain a true
 
279
file name.
 
280
BUFFER-NAME is a variable symbol, which will get the buffer object into
 
281
which FILE is read.
 
282
LAST-DIR is the directory variable symbol where FILE's
 
283
directory name should be returned.  HOOKS-VAR is a variable symbol that will
 
284
be assigned the hook to be executed after `ediff-startup' is finished.
 
285
`ediff-find-file' arranges that the temp files it might create will be
 
286
deleted."
286
287
  (let* ((file (symbol-value file-var))
287
288
         (file-magic (ediff-filename-magic-p file))
288
289
         (temp-file-name-prefix (file-name-nondirectory file)))
1504
1505
(run-hooks 'ediff-load-hook)
1505
1506
 
1506
1507
 
1507
 
;;; Local Variables:
1508
 
;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun)
1509
 
;;; eval: (put 'ediff-with-current-buffer 'lisp-indent-hook 1)
1510
 
;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
1511
 
;;; End:
 
1508
;; Local Variables:
 
1509
;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun)
 
1510
;; eval: (put 'ediff-with-current-buffer 'lisp-indent-hook 1)
 
1511
;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 
1512
;; End:
1512
1513
 
1513
1514
;; arch-tag: 97c71396-db02-4f41-8b48-6a51c3348fcc
1514
1515
;;; ediff.el ends here