|
Namazu for hns による簡易全文検索 詳しくは 詳細指定/ヘルプを参照して下さい |
||||||||||||||||||||||||||||||||||||||||||||||||||
2006年04月28日(金) 旧暦 [n年日記] [更新:"2006/04/28 09:49:14"]#1 [Emacs] pcl-cvs ってちょっとだけ危険 ?
cvs を操作行で使っていると、あまり用心しなくて良い。
しかし pcl-cvs は逆に用心して使う必要がある。
あるいは pcl-cvs の設定で、上書き禁止の指定が出来るのかな ? U に 割当てられているのは cvs-mode-undo。 /usr/local/share/emacs/22.0.50/lisp/pcvs.el より
(defun-cvs-mode (cvs-mode-undo . SIMPLE) (flags)
"Undo local changes to all marked files.
The file is removed and `cvs update FILE' is run."
;;"With prefix argument, prompt for cvs FLAGS."
(interactive (list nil));; (cvs-flags-query 'cvs-undo-flags "undo flags")
(if current-prefix-arg (call-interactively 'cvs-mode-revert-to-rev)
(let* ((fis (cvs-do-removal 'undo "update" 'all))
(removedp (lambda (fi)
(or (eq (cvs-fileinfo->type fi) 'REMOVED)
(and (eq (cvs-fileinfo->type fi) 'CONFLICT)
(eq (cvs-fileinfo->subtype fi) 'REMOVED)))))
(fis-split (cvs-partition removedp fis))
(fis-removed (car fis-split))
(fis-other (cdr fis-split)))
(if (null fis-other)
(when fis-removed (cvs-mode-run "add" nil fis-removed))
(cvs-mode-run "update" flags fis-other
:postproc
(when fis-removed
`((with-current-buffer ,(current-buffer)
(cvs-mode-run "add" nil ',fis-removed)))))))))
cvs-undo-flags: これかな ..
;; (setq cvs-undo-flags "-C") と書いて見たがどうも違うらしい。 @ ~/.cvsrc:
上に「操作行なら何も考えなくていい」と書いたが、これはもしかして ~/.cvsrc に
update -dP -Cと設定してあるからか .. 忘れていた .. (最近の Mac OS X に標準に入っている cvs は -C が使えるかなぁ) @ 切替人生:
( つっこみ )
|
最近の日記 2025年12月11日 ・oreore 2025/12 2025年11月22日 ・crash dump 2025年10月25日 ・recover from disk error 2025年10月23日 ・dd does not duplicate Windows 11 boot disk ? 2025年10月13日 ・missing package | ||