diff options
| author | Stefan Monnier | 2007-05-25 16:41:25 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-05-25 16:41:25 +0000 |
| commit | f4a7decd96ccc0e52933f5da881d4a887d4716a8 (patch) | |
| tree | ea3060206f9e3ee03e77106a4cce047ec27b8e6f | |
| parent | 178f6d1fc7c3199009c997587e74625d4f00f2c1 (diff) | |
| download | emacs-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/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/ediff-init.el | 14 |
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 @@ | |||
| 1 | 2007-05-25 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2007-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 |