aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2007-05-25 16:41:25 +0000
committerStefan Monnier2007-05-25 16:41:25 +0000
commitf4a7decd96ccc0e52933f5da881d4a887d4716a8 (patch)
treeea3060206f9e3ee03e77106a4cce047ec27b8e6f
parent178f6d1fc7c3199009c997587e74625d4f00f2c1 (diff)
downloademacs-f4a7decd96ccc0e52933f5da881d4a887d4716a8.tar.gz
emacs-f4a7decd96ccc0e52933f5da881d4a887d4716a8.zip
(ediff-defvar-local, ediff-with-current-buffer):
Add indentation and debugging info. Fix up comment convention.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/ediff-init.el14
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7aeed1d185b..e00e3593e46 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12007-05-25 Stefan Monnier <monnier@iro.umontreal.ca> 12007-05-25 Stefan Monnier <monnier@iro.umontreal.ca>
2 2
3 * ediff-init.el (ediff-defvar-local, ediff-with-current-buffer):
4 Add indentation and debugging info. Fix up comment convention.
5
3 * cus-dep.el (custom-make-dependencies): Simplify. 6 * cus-dep.el (custom-make-dependencies): Simplify.
4 7
5 * composite.el (compose-region, decompose-region): 8 * composite.el (compose-region, decompose-region):
diff --git a/lisp/ediff-init.el b/lisp/ediff-init.el
index 0ecc809797f..d37096f9e89 100644
--- a/lisp/ediff-init.el
+++ b/lisp/ediff-init.el
@@ -110,6 +110,7 @@ that Ediff doesn't know about.")
110;; 110;;
111;; Plagiarised from `emerge-defvar-local' for XEmacs. 111;; Plagiarised from `emerge-defvar-local' for XEmacs.
112(defmacro ediff-defvar-local (var value doc) 112(defmacro ediff-defvar-local (var value doc)
113 (declare (indent defun))
113 `(progn 114 `(progn
114 (defvar ,var ,value ,doc) 115 (defvar ,var ,value ,doc)
115 (make-variable-buffer-local ',var) 116 (make-variable-buffer-local ',var)
@@ -258,6 +259,7 @@ It needs to be killed when we quit the session.")
258;; Doesn't save the point and mark. 259;; Doesn't save the point and mark.
259;; This is `with-current-buffer' with the added test for live buffers." 260;; This is `with-current-buffer' with the added test for live buffers."
260(defmacro ediff-with-current-buffer (buffer &rest body) 261(defmacro ediff-with-current-buffer (buffer &rest body)
262 (declare (indent 1) (debug (form body)))
261 `(if (ediff-buffer-live-p ,buffer) 263 `(if (ediff-buffer-live-p ,buffer)
262 (save-current-buffer 264 (save-current-buffer
263 (set-buffer ,buffer) 265 (set-buffer ,buffer)
@@ -1873,11 +1875,11 @@ Unless optional argument INPLACE is non-nil, return a new string."
1873 1875
1874 1876
1875 1877
1876;;; Local Variables: 1878;; Local Variables:
1877;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) 1879;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun)
1878;;; eval: (put 'ediff-with-current-buffer 'lisp-indent-hook 1) 1880;; eval: (put 'ediff-with-current-buffer 'lisp-indent-hook 1)
1879;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) 1881;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
1880;;; End: 1882;; End:
1881 1883
1882;;; arch-tag: fa31d384-1e70-4d4b-82a7-3e96307c46f5 1884;; arch-tag: fa31d384-1e70-4d4b-82a7-3e96307c46f5
1883;;; ediff-init.el ends here 1885;;; ediff-init.el ends here