Mercurial > hg > xemacs-beta

diff lisp/packages/generic-sc.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
line wrap: on
line diff
--- a/lisp/packages/generic-sc.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/packages/generic-sc.el	Mon Aug 13 08:46:35 2007 +0200
@@ -820,7 +820,7 @@
 		system)
 	     (funcall f)
 	     (add-hook 'find-file-hooks 'sc-mode-line)
-	     (add-menu '() sc-generic-name sc-menu)
+	     (add-submenu '() (cons sc-generic-name sc-menu))
 	     (add-hook 'activate-menubar-hook 'sc-sensitize-menu)
 	     (run-hooks 'sc-mode-hook)
 	     (setq sc-mode system))))))
@@ -1140,7 +1140,7 @@
 (defun rcs-register (file revision)
   (if (and (not (file-exists-p "RCS"))
 	   (y-or-n-p "Directory RCS does not exist, create it?"))
-      (make-directory "SCCS"))
+      (make-directory "RCS"))
   (sc-do-command "*RCS*" "ci" "ci" file (rcs-name file) "-u"))
 
 (defun rcs-check-out (file lockp)