Mercurial > emacs
comparison lisp/ibuf-ext.el @ 96377:45e9e9c42e29
* ibuf-ext.el (diff-sentinel): Declare.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 27 Jun 2008 10:34:50 +0000 |
| parents | 987e540891e7 |
| children | 57fc87925078 |
comparison
equal
deleted
inserted
replaced
| 96376:c3309dba6542 | 96377:45e9e9c42e29 |
|---|---|
| 1296 ;; groups: that must be because it's hidden by predicate: | 1296 ;; groups: that must be because it's hidden by predicate: |
| 1297 ;; we won't bother trying to display it. | 1297 ;; we won't bother trying to display it. |
| 1298 (error "No buffer with name %s" name) | 1298 (error "No buffer with name %s" name) |
| 1299 (goto-char buf-point))))) | 1299 (goto-char buf-point))))) |
| 1300 | 1300 |
| 1301 (declare-function diff-sentinel "diff" (code)) | |
| 1302 | |
| 1301 (defun ibuffer-diff-buffer-with-file-1 (buffer) | 1303 (defun ibuffer-diff-buffer-with-file-1 (buffer) |
| 1302 (let ((bufferfile (buffer-local-value 'buffer-file-name buffer)) | 1304 (let ((bufferfile (buffer-local-value 'buffer-file-name buffer)) |
| 1303 (tempfile (make-temp-file "buffer-content-"))) | 1305 (tempfile (make-temp-file "buffer-content-"))) |
| 1304 (when bufferfile | 1306 (when bufferfile |
| 1305 (unwind-protect | 1307 (unwind-protect |