[Emacs-diffs] emacs-24 r117103: * lisp/vc/vc-hg.el (vc-hg-unregister): New function (tiny change)

[Glenn Morris]

------------------------------------------------------------
revno: 117103
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/17454
author: Santiago Payà i Miralta <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-05-10 19:01:08 -0700
message:
  * lisp/vc/vc-hg.el (vc-hg-unregister): New function (tiny change)
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/vc-hg.el               vchg.el-20091113204419-o5vbwnq5f7feedwu-5062

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-11 01:53:42 +0000
+++ b/lisp/ChangeLog    2014-05-11 02:01:08 +0000
@@ -1,3 +1,7 @@
+2014-05-11  Santiago Payà i Miralta  <address@hidden>  (tiny change)
+
+       * vc/vc-hg.el (vc-hg-unregister): New function.  (Bug#17454)
+
 2014-05-11  Glenn Morris  <address@hidden>
 
        * emacs-lisp/find-gc.el: Move to ../admin.

=== modified file 'lisp/vc/vc-hg.el'
--- a/lisp/vc/vc-hg.el  2014-02-10 01:34:22 +0000
+++ b/lisp/vc/vc-hg.el  2014-05-11 02:01:08 +0000
@@ -60,7 +60,7 @@
 ;; - responsible-p (file)                      OK
 ;; - could-register (file)                     OK
 ;; - receive-file (file rev)                   ?? PROBABLY NOT NEEDED
-;; - unregister (file)                         COMMENTED OUT, MAY BE INCORRECT
+;; - unregister (file)                         OK
 ;; * checkin (files rev comment)               OK
 ;; * find-revision (file rev buffer)           OK
 ;; * checkout (file &optional editable rev)    OK
@@ -436,10 +436,9 @@
              ;; registered.
          (error))))
 
-;; FIXME: This would remove the file. Is that correct?
-;; (defun vc-hg-unregister (file)
-;;   "Unregister FILE from hg."
-;;   (vc-hg-command nil nil file "remove"))
+(defun vc-hg-unregister (file)
+  "Unregister FILE from hg."
+  (vc-hg-command nil 0 file "forget"))
 
 (declare-function log-edit-extract-headers "log-edit" (headers string))