Mercurial > hg > xemacs-beta

comparison lisp/packages/generic-sc.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 0293115a14e9
children 34a5b81f86ba
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
537 537
538 ;;; Utilities functions 538 ;;; Utilities functions
539 (defun sc-do-command (buffer message command file sc-file &rest flags) 539 (defun sc-do-command (buffer message command file sc-file &rest flags)
540 "Execute a command, notifying the user and checking for errors." 540 "Execute a command, notifying the user and checking for errors."
541 (setq file (expand-file-name file)) 541 (setq file (expand-file-name file))
542 (message (format "Running %s on %s..." message file)) 542 (message "Running %s on %s..." message file)
543 (let ((status 543 (let ((status
544 (save-excursion 544 (save-excursion
545 (set-buffer (get-buffer-create buffer)) 545 (set-buffer (get-buffer-create buffer))
546 (erase-buffer) 546 (erase-buffer)
547 (setq flags (append flags (and file (list sc-file)))) 547 (setq flags (append flags (and file (list sc-file))))
548 (setq flags (delq () flags)) 548 (setq flags (delq () flags))
549 (let ((default-directory (file-name-directory (or file "./")))) 549 (let ((default-directory (file-name-directory (or file "./"))))
550 (eq (apply 'call-process command nil t nil flags) 0))))) 550 (eq (apply 'call-process command nil t nil flags) 0)))))
551 (if status 551 (if status
552 (message (format "Running %s...OK" message)) 552 (message "Running %s...OK" message)
553 (save-excursion 553 (save-excursion
554 (set-buffer buffer) 554 (set-buffer buffer)
555 (goto-char (point-min)) 555 (goto-char (point-min))
556 (insert command) 556 (insert command)
557 (mapcar '(lambda (i) (insert " " i)) flags) 557 (mapcar '(lambda (i) (insert " " i)) flags)
558 (insert "\n\n") 558 (insert "\n\n")
559 (goto-char (point-min))) 559 (goto-char (point-min)))
560 (display-buffer buffer) 560 (display-buffer buffer)
561 (error (format "Running %s...FAILED" message))))) 561 (error "Running %s...FAILED" message))))
562 562
563 (defun sc-enter-comment () 563 (defun sc-enter-comment ()
564 "Enter a comment. Return it as a string." 564 "Enter a comment. Return it as a string."
565 (let ((buffer (sc-temp-buffer))) 565 (let ((buffer (sc-temp-buffer)))
566 (setq sc-generic-log-buf 566 (setq sc-generic-log-buf