|
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 が使えるかなぁ) @ 切替人生:
( つっこみ )
|
最近の日記 2024年03月10日 ・停電 (瞬電) 2024年03月03日 ・the second try on bare-metal ・useradd 2024年02月29日 ・opendkim and senmail 2024年01月24日 ・chat/iam 0.0.8 2024年01月21日 ・uselocale vs setlocale (textproc/R-readxl) | ||