Show More
@@ -317,6 +317,18 b' If the command does not exit with a zero' | |||
|
317 | 317 | (car res)) |
|
318 | 318 | (cdr res)))) |
|
319 | 319 | |
|
320 | (defmacro hg-do-across-repo (path &rest body) | |
|
321 | (let ((root-name (gensym "root-")) | |
|
322 | (buf-name (gensym "buf-"))) | |
|
323 | `(let ((,root-name (hg-root ,path))) | |
|
324 | (save-excursion | |
|
325 | (dolist (,buf-name (buffer-list)) | |
|
326 | (set-buffer ,buf-name) | |
|
327 | (when (and hg-status (equal (hg-root buffer-file-name) ,root-name)) | |
|
328 | ,@body)))))) | |
|
329 | ||
|
330 | (put 'hg-do-across-repo 'lisp-indent-function 1) | |
|
331 | ||
|
320 | 332 | (defun hg-sync-buffers (path) |
|
321 | 333 | "Sync buffers visiting PATH with their on-disk copies. |
|
322 | 334 | If PATH is not being visited, but is under the repository root, sync |
@@ -539,18 +551,6 b' directory names from the file system. W' | |||
|
539 | 551 | (set-buffer buf) |
|
540 | 552 | (hg-mode-line-internal status parents))))))) |
|
541 | 553 | |
|
542 | (defmacro hg-do-across-repo (path &rest body) | |
|
543 | (let ((root-name (gensym "root-")) | |
|
544 | (buf-name (gensym "buf-"))) | |
|
545 | `(let ((,root-name (hg-root ,path))) | |
|
546 | (save-excursion | |
|
547 | (dolist (,buf-name (buffer-list)) | |
|
548 | (set-buffer ,buf-name) | |
|
549 | (when (and hg-status (equal (hg-root buffer-file-name) ,root-name)) | |
|
550 | ,@body)))))) | |
|
551 | ||
|
552 | (put 'hg-do-across-repo 'lisp-indent-function 1) | |
|
553 | ||
|
554 | 554 | |
|
555 | 555 | ;;; View mode bits. |
|
556 | 556 |
General Comments 0
You need to be logged in to leave comments.
Login now