[elpa] externals/cpio-mode 0fe3abc 37/61: Removed commented out stub debuggers.

[Stefan Monnier]

branch: externals/cpio-mode
commit 0fe3abcd5d52267c96f070cd98d1fdccdeb0d846
Author: dlewan <address@hidden>
Commit: GitHub <address@hidden>

    Removed commented out stub debuggers.
---
 cpio-affiliated-buffers.el |  1 -
 cpio-dired-test.el         |  3 ---
 cpio-dired.el              | 39 ---------------------------------------
 cpio-generic.el            |  2 --
 cpio-modes.el              |  5 -----
 cpio-newc-test.el          |  1 -
 cpio-newc.el               |  2 --
 cpio.el                    | 16 ----------------
 8 files changed, 69 deletions(-)

diff --git a/cpio-affiliated-buffers.el b/cpio-affiliated-buffers.el
index a588f13..fcc6178 100644
--- a/cpio-affiliated-buffers.el
+++ b/cpio-affiliated-buffers.el
@@ -101,7 +101,6 @@
   "Return non-NIL if BUFFER is already registered to PARENT.
 CONTRACT: BUFFER and PARENT are buffers."
   (let ((fname "cab-registered-p"))
-    ;; (error "%s() is not yet implemented" fname)
     (with-current-buffer parent
       (not (member buffer *cab-subordinates*)))))
 
diff --git a/cpio-dired-test.el b/cpio-dired-test.el
index c46a9b4..0008db0 100644
--- a/cpio-dired-test.el
+++ b/cpio-dired-test.el
@@ -6535,7 +6535,6 @@ If MAKE is non-nil, then run 'make newc' as part of the 
reset."
        (archive-name)
        (archive-names (list *cdmt-small-archive*
                             *cdmt-large-archive*)))
-    ;; (error "%s() is not yet implemented" fname)
     (cd run-dir)
     (mapc (lambda (an)
            (setq cpio-archive-buffer (find-file-noselect an))
@@ -6585,7 +6584,6 @@ then those will also be reformatted.
 So, if NULLs have been converted to printable characters,
 then the entry names will be incorrect."
   (let ((fname "cdmt-reformat-newc-headers"))
-    ;; (error "%s() is not yet implemented" fname)
     (while (string-match *cpio-newc-header-re* archive-contents)
       (setq archive-contents (concat (substring archive-contents 0 
(match-beginning 0))
                                     (concat (match-string 
*cpio-newc-magic-re-idx*    archive-contents) "\t(( magic    ))\n")
@@ -6611,7 +6609,6 @@ then the entry names will be incorrect."
   "Globally substitute TO-STR for FROM-STR in STRING and return the new string.
 In principal, FROM-STR can be a regular expression."
   (let ((fname "cdmt-global-sub"))
-    ;; (error "%s() is not yet implemented" fname)
     (while (string-match from-str string)
       (setq string (replace-match to-str nil t string 0)))
     string))
diff --git a/cpio-dired.el b/cpio-dired.el
index 8a5af8b..81f3b47 100644
--- a/cpio-dired.el
+++ b/cpio-dired.el
@@ -50,7 +50,6 @@ Keep any preceding comments."
        (start)
        (end)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (save-excursion
       (goto-char (point-min))
       (while (re-search-forward "^(defun \\([[:graph:]]+\\) " (point-max) t)
@@ -73,7 +72,6 @@ Keep any preceding comments."
        (sortable-list)
        (sorted-list)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (setq sortable-list
          (mapcar (lambda (d)
                    (let ((defun-name (and (string-match "(defun 
\\([[:graph:]]+\\) " d)
@@ -92,7 +90,6 @@ Keep any preceding comments."
   (let ((fname "sort-defuns-in-buffer")
        (defuns (sort-defuns (snarf-defuns)))
        )
-    ;; (error "%s() is not yet implemented" fname)
     (delete-region (point-min) (point-max))
     (mapc (lambda (d)
            (insert d "\n"))
@@ -511,7 +508,6 @@ Run more than one instance of emacs to avoid such 
collisions."
   "Toggle cpio-dired-hide-details-mode."
   (let ((fname "cpio-dired-hide-details-update-invisibility-spec")
        )
-    ;; (error "%s() is not yet implemented" fname)
     (funcall (if cpio-dired-hide-details-mode
                 'add-to-invisibility-spec
               'remove-from-invisibility-spec)
@@ -533,7 +529,6 @@ Run more than one instance of emacs to avoid such 
collisions."
   (let ((fname "cpio-dired-find-entry-noselect")
        (target-buffer (get-buffer-create (cpio-contents-buffer-name 
entry-name)))
        )
-    ;; (error "%s() is not yet implemented" fname)
     (cond ((and target-buffer (buffer-live-p target-buffer))
           target-buffer)
          (target-buffer
@@ -549,7 +544,6 @@ Run more than one instance of emacs to avoid such 
collisions."
   (let ((fname "cpio-internal-do-deletions")
        )
     ;; HEREHERE Debug this.
-    ;; (error "%s() is not yet implemented" fname)
     (if *cab-parent*
        (with-current-buffer *cab-parent*
          (cpio-internal-do-deletions l))
@@ -565,7 +559,6 @@ CONTRACT: You're in that archive's buffer."
         (end-marker)
         (entry-attrs)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (if *cab-parent*
        (with-current-buffer *cab-parent*
          (cpio-internal-do-deletion entry-name))
@@ -588,7 +581,6 @@ if none are so marked, then the next ARG entries."
        (files ())
        (i 0)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (save-excursion
       (goto-char (point-min))
       (while (re-search-forward (format "^\\%c" char) (point-max) t)
@@ -616,7 +608,6 @@ to make the recursive call this function inside the archive 
buffer sensible."
        (header-start-marker)
        (contents-start-marker)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (if *cab-parent*
        (with-current-buffer *cab-parent*
          (cpio-dired-add-contents attrs contents cpio-dired-buffer))
@@ -729,7 +720,6 @@ CONTRACT: TARGET is the actual TARGET name, not an implied 
directory entry."
   (let ((fname "cpio-dired-internal-do-copy")
        (attrs (copy-sequence (cpio-entry-attrs entry)))
                   (contents (cpio-contents entry)))
-    ;; (error "%s() is not yet implemented" fname)
     (cpio-set-entry-name attrs target)
     (cpio-dired-add-contents attrs contents)))
 
@@ -744,7 +734,6 @@ CONTRACT:
        (attrs (cpio-entry-attrs entry-name))
        ;;; (contents (cpio-contents entry-name)))
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (cpio-set-entry-name attrs target)
@@ -792,7 +781,6 @@ with information from the current catalog."
        (attrs (cpio-entry-attrs entry-name))
        (mark)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (save-excursion
       (cpio-move-to-entry entry-name)
       (setq mark (string-to-char (buffer-substring (line-beginning-position) 
(1+ (line-beginning-position)))))
@@ -806,7 +794,6 @@ with information from the current catalog."
   "Delete the line of ENTRY-NAME not including the new line."
   (let ((fname "cpio-dired-delete-dired-line")
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired-buffer." fname))
     (cpio-move-to-entry entry-name)
@@ -849,7 +836,6 @@ then use the current buffer."
         (header-string)
         (cpio-dired-buffer (or cpio-dired-buffer (current-buffer)))
         )
-    ;; (error "%s() is not yet implemented" fname)
     (if (string-match "^~/" filename)
        (setq filename (expand-file-name filename)))
     (cond (*cab-parent*
@@ -895,7 +881,6 @@ OLD and NEW are both characters used to mark entries."
                                  (read-char))))
                 (list (char-to-string old) (char-to-string new))))
   (let ((fname "cpio-dired-change-marks"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio dired buffer." fname))
     (save-excursion
@@ -939,7 +924,6 @@ You can then feed the entry name(s) to other commands with 
C-y."
   (let ((fname "cpio-dired-copy-entry-name-as-kill")
        (names (reverse (cpio-dired-get-marked-entries arg)))
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio dired buffer." fname))
     (if names
@@ -970,7 +954,6 @@ This respects umask(1) as available through 
(default-file-modes)."
        (header-string)
        (cat-entry)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (cond (*cab-parent*
           (unless (eq major-mode 'cpio-dired-mode)
             (error "%s(): You're not in a cpio dired buffer." fname))
@@ -1203,7 +1186,6 @@ into the minibuffer."
                 "Change mode of %s to: "
                 nil 'chmod arg entries default))
         )
-    ;; (error "%s() is not yet implemented" fname)))
     (cond ((or (equal mode-string "")
               (equal mode-string default-mode-value))
           (error "%s(): No entry mode specified." fname))
@@ -1245,7 +1227,6 @@ into the minibuffer."
        (entry)
        (attrs)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (or (eq major-mode 'cpio-dired-mode)
                (eq major-mode 'cpio-mode))
       (error "%s(): You're in neither a cpio-dired buffer nor a buffer in 
cpio-mode ." fname))
@@ -1324,7 +1305,6 @@ that that target should be a directory."
        (target)
        (target-attrs)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (setq target (read-from-minibuffer "Target? "
                                       nil
                                       nil
@@ -1382,7 +1362,6 @@ Marks win over ARG."
        (entries (cpio-dired-marked-entries cpio-dired-marker-char arg))
        (i 0)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     ;; OK, which of these two approaches do I prefer?
@@ -1411,7 +1390,6 @@ non-empty directories is allowed."
   (let ((fname "cpio-dired-do-flagged-delete")
        (entries (cpio-dired-marked-entries cpio-dired-del-marker 1))
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (if (and (null entries)
@@ -1546,7 +1524,6 @@ of `dired-dwim-target', which see."
        (target)
        (target-attrs)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (setq target (read-from-minibuffer "Target? "
                                       nil
                                       nil
@@ -1767,7 +1744,6 @@ into the minibuffer."
   (interactive)
   (let ((fname "cpio-dired-extract-all")
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (or (eq major-mode 'cpio-dired-mode)
                (eq major-mode 'cpio-mode))
       (error "%s() only makes sense in a cpio-dired buffer." fname))
@@ -1784,7 +1760,6 @@ into the minibuffer."
        (files (or (cpio-dired-get-marked-entries)
                   (list (cpio-dired-get-entry-name))))
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (or (eq major-mode 'cpio-dired-mode)
                (eq major-mode 'cpio-mode))
       (error "%s() only makes sense in a cpio-dired buffer." fname))
@@ -1829,7 +1804,6 @@ A prefix argument says to unmark or unflag those files 
instead."
   (interactive)
   (let ((fname "cpio-dired-flag-auto-save-entries")
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired style buffer." fname))
     (save-excursion
@@ -1873,7 +1847,6 @@ in the active region."
   (interactive "p")
   (let ((fname "cpio-dired-flag-entry-deletion")
        (cpio-dired-marker-char cpio-dired-del-marker))
-    ;; (error "%s() is not yet implemented" fname)
     (cpio-dired-mark arg)))
 
 ;; 
@@ -1889,7 +1862,6 @@ in the active region."
   (let ((fname "cpio-dired-flag-garbage-entries")
        (entry-name)
        )
-    ;; (error "%s() is not yet implemented" fname)))
     (save-excursion
       (cpio-dired-move-to-first-entry)
       (save-match-data
@@ -1906,7 +1878,6 @@ in the active region."
   (let ((fname "cpio-dired-goto-entry")
        (this-entry)
        )
-    ;; (error "%s() is not yet implemented" fname)))
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (unless (cpio-entry-exists-p entry)
@@ -1958,7 +1929,6 @@ and any affiliated buffers thereof."
   (interactive)
   (let ((fname "cpio-dired-kill")
        )
-    ;; (error "%s() is not yet implemented" fname)
     (if *cab-parent*
        (cond ((buffer-live-p *cab-parent*)
               (if (and (called-interactively-p)
@@ -2040,7 +2010,6 @@ object entries--just `.o' will mark more than you might 
think."
   (let ((fname "cpio-dired-mark-entries-regexp")
        (cpio-dired-marker-char (or marker-char cpio-dired-marker-char))
        (entry-name))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (save-excursion
@@ -2061,7 +2030,6 @@ object files--just `.o' will mark more than you might 
think."
   (let ((fname "cpio-dired-mark-entries-regexp")
        (entry-name)
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (save-excursion
@@ -2081,7 +2049,6 @@ With prefix argument, unmark or unflag all those entries."
   (let ((fname "cpio-dired-mark-executables")
        (this-mode)
        )
-    ;; (error "%s() is not yet implemented" fname)))
     (save-excursion
       (cpio-dired-move-to-first-entry)
       (while (< (point) (point-max))
@@ -2101,7 +2068,6 @@ If the Dired buffer shows multiple directories, this 
command
 marks the entries listed in the subdirectory that point is in."
   (interactive)
   (let ((fname "cpio-dired-mark-subdir-entries"))
-    ;; (error "%s() is not yet implemented" fname)))
     (save-excursion
       (cpio-dired-move-to-first-entry)
       (while (< (point) (point-max))
@@ -2119,7 +2085,6 @@ With prefix argument, unmark or unflag all those entries."
   (let ((fname "cpio-dired-mark-symlinks")
        (this-mode)
        )
-    ;; (error "%s() is not yet implemented" fname)))
     (save-excursion
       (cpio-dired-move-to-first-entry)
       (while (< (point) (point-max))
@@ -2311,7 +2276,6 @@ one.  If non-nil, reset `quit-restore' parameter to nil."
   (interactive)
   (let ((fname "cpio-dired-save-archive")
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (or (eq major-mode 'cpio-dired-mode)
                (eq major-mode 'cpio-mode))
       (error "%s(): You can only save an archive from a cpio-dired buffer." 
fname))
@@ -2477,7 +2441,6 @@ Type C-h at that time for help."
   (let ((fname "cpio-dired-unmark-all-entries")
        entry
        )
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (cond ((string-equal mark "")
@@ -2508,7 +2471,6 @@ Type C-h at that time for help."
   "Remove all marks from all entries in the Dired buffer."
   (interactive)
   (let ((fname "cpio-dired-unmark-all-marks"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (save-excursion
@@ -2754,7 +2716,6 @@ The default function runs the hooks `before-revert-hook' 
and
 `after-revert-hook'."
   (interactive)
   (let ((fname "revert-buffer"))
-    ;; (error "%s() is not yet implemented" fname)
     (if *cab-parent*
        (if (buffer-live-p *cab-parent*)
            (with-current-buffer *cab-parent*
diff --git a/cpio-generic.el b/cpio-generic.el
index 47ef6f4..b6b4894 100644
--- a/cpio-generic.el
+++ b/cpio-generic.el
@@ -418,7 +418,6 @@ CAVEAT: This deletes any buffer holding /etc/passwd."
   (let ((fname "cpio-uid-for-owner")
        (passwd-buffer (find-file-noselect "/etc/passwd"))
        (uid nil))
-    ;; (error "%s() is not yet implemented" fname)
     (if (string-match "\\`[[:digit:]]+\\'" owner)
        (setq uid owner)
       (with-current-buffer passwd-buffer
@@ -443,7 +442,6 @@ CAVEAT: This deletes any buffer holding /etc/group."
   (let ((fname "cpio-gid-for-group")
        (group-buffer (find-file-noselect "/etc/group"))
        (gid nil))
-    ;; (error "%s() is not yet implemented" fname)
     (cond ((null group)
           nil)
          ((stringp group)
diff --git a/cpio-modes.el b/cpio-modes.el
index 3ef2d11..fb31935 100644
--- a/cpio-modes.el
+++ b/cpio-modes.el
@@ -253,7 +253,6 @@ please let me know."
         (owner-chars    (subseq chars 1  4))
         (group-chars    (subseq chars 4  7))
         (other-chars    (subseq chars 7 10)))
-    ;; (error "%s(): is not implemented yet." fname)
     (setq bits (logior bits
                       (cpio-type-char-to-bits type-char)
                       (cpio-owner-chars-to-bits owner-chars)
@@ -275,7 +274,6 @@ please let me know."
                     (= char (string-to-char *cpio-modes-sock*))
                     (= char (string-to-char *cpio-modes-unknown*))))
       (signal 'wrong-type-argument char))
-    ;; (error "%s() is not yet implemented" fname)
     (cond ((= char  (string-to-char *cpio-modes-link*))
           s-iflnk)
          ((= char  (string-to-char *cpio-modes-reg*))
@@ -300,7 +298,6 @@ please let me know."
        (write-char)
        (exec-char)
        (bits 0))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (and (listp chars)
                 (= (length chars) 3)
                 (member (setq read-char  (nth 0 chars)) '(?- ?r))
@@ -329,7 +326,6 @@ please let me know."
        (write-char)
        (exec-char)
        (bits 0))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (and (listp chars)
                 (= (length chars) 3)
                 (member (setq read-char  (nth 0 chars)) '(?- ?r))
@@ -354,7 +350,6 @@ please let me know."
 (defun cpio-other-chars-to-bits (chars)
   "Interpret CHARS as other mode bits."
   (let ((fname "cpio-other-chars-to-bits"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (and (listp chars)
                 (= (length chars) 3)
                 (member (setq read-char  (nth 0 chars)) '(?- ?r))
diff --git a/cpio-newc-test.el b/cpio-newc-test.el
index 1cfce98..9627707 100644
--- a/cpio-newc-test.el
+++ b/cpio-newc-test.el
@@ -27,7 +27,6 @@ a;; -*- coding: utf-8 -*-
 ;; Version: 0.01
 ;; Keywords: cpio, newc, test
 
-;; (error "You can't actually load cpio-newc-tests.el yet.")
 
 
 ;;; Commentary:
diff --git a/cpio-newc.el b/cpio-newc.el
index c6e617e..f44e376 100644
--- a/cpio-newc.el
+++ b/cpio-newc.el
@@ -912,7 +912,6 @@ once the TRAILER is written and padded."
         (base-trailer 
"07070100000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000B00000000TRAILER!!!\0\0\0\0")
         (base-len (length base-trailer))
         (len))
-    ;; (error "%s() is not yet implemented" fname)
     ;; ...and insert the new trailer...
     (setq buffer-read-only nil)
     (insert base-trailer)
@@ -926,7 +925,6 @@ once the TRAILER is written and padded."
 (defun cpio-newc-delete-trailer ()
   "Delete the trailer in the current cpio newc archive."
   (let ((fname "cpio-newc-delete-trailer"))
-    ;; (error "%s() is not yet implemented" fname)
     ;; First, get to the end of the last entry in the archive.
     (goto-char (point-min))
     (mapc (lambda (e)
diff --git a/cpio.el b/cpio.el
index 695d6bb..28e2ba8 100644
--- a/cpio.el
+++ b/cpio.el
@@ -806,7 +806,6 @@ WHERE can be an integer or marker."
                             where)
                            (t
                             (error 'wrong-type-error where)))))
-    ;; (error "%s() is not yet implemented" fname)
     (aset entry *cpio-catalog-entry-contents-start-idx* where-marker)))
 
 (defun cpio-contents (entry-name &optional archive-buffer)
@@ -862,7 +861,6 @@ To be consistent, this also sets the name's size element."
 UID can be either a string (representing a number)
 or an integer."
   (let ((fname "cpio-set-uid"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (integerp uid)
       (setq uid (string-to-number uid)))
     (aset parsed-header *cpio-uid-parsed-idx* uid)))
@@ -872,7 +870,6 @@ or an integer."
 GID can be either a string (representing a number)
 or an integer."
   (let ((fname "cpio-set-gid"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (integerp gid)
       (setq uid (string-to-number gid)))
     (aset parsed-header *cpio-gid-parsed-idx* gid)))
@@ -881,7 +878,6 @@ or an integer."
   "Set the mode field in the PARSED-HEADER to MODE.
 MODE is either an integer or a string representing an integer."
   (let ((fname "cpio-set-mode"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (integerp mode)
       (setq uid (string-to-number mode)))
     (aset parsed-header *cpio-mode-parsed-idx* mode)))
@@ -890,7 +886,6 @@ MODE is either an integer or a string representing an 
integer."
   "Set the modification time in the PARSED-HEADER to MTIME.
 MTIME is an emacs time."
   (let ((fname "cpio-set-mtime"))
-    ;; (error "%s() is not yet implemented" fname)
     (aset parsed-header *cpio-mtime-parsed-idx* mtime)))
 
 (defun cpio-extract-all ()
@@ -1029,7 +1024,6 @@ If ENTRY-NAME is not in the current archive, then return 
NIL."
 (defun cpio-numeric-entry-type (numeric-mode)
   "Return the numeric entry type of the given NUMERIC MODE."
   (let ((fname "cpio-numeric-entry-type"))
-    ;; (error "%s() is not yet implemented" fname)
     (cond ((= #o170000 (logand s-ifmt   numeric-mode))
           s-ifmt)
          ((= #o140000 (logand s-ifsock numeric-mode))
@@ -1098,7 +1092,6 @@ with one with the correct size fot its contents."
 (defun cpio-insert-trailer ()
   "Insert a trailer in a cpio archive."
   (let ((fname "cpio-insert-trailer"))
-    ;; (error "%s() is not yet implemented" fname)
     (if *cab-parent*
        (with-current-buffer *cab-parent*
          (funcall cpio-insert-trailer-func))
@@ -1107,7 +1100,6 @@ with one with the correct size fot its contents."
 (defun cpio-delete-trailer ()
   "Delete the trailer in the cpio archive buffer affiliated with the current 
buffer."
   (let ((fname "cpio-delete-trailer"))
-    ;; (error "%s() is not yet implemented" fname)
     (if *cab-parent*
        (with-current-buffer *cab-parent*
          (funcall cpio-delete-trailer-func))
@@ -1183,7 +1175,6 @@ This returns the buffer created."
 (defun cpio-dired-move-to-first-entry ()
   "Move the point to the first entry in a cpio-dired style buffer."
   (let ((fname "cpio-dired-move-to-first-entry"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (goto-char (point-min))
@@ -1289,7 +1280,6 @@ a UNIX/GNU/Linux time as an integer."
   "Find the given ENTRY-NAME and return the buffer holding its contents."
   (let ((fname "cpio-dired--find-entry")
        (target-buffer))
-    ;; (error "%s() is not yet implemented" fname)
     (if (null (setq target-buffer (get-buffer-create 
(cpio-contents-buffer-name entry-name))))
        (error "%s(): Could not get a buffer for entry [[%s]]." fname))
     (cab-register target-buffer *cab-parent*)
@@ -1330,7 +1320,6 @@ a UNIX/GNU/Linux time as an integer."
         (checksum 0)
 
         (result (make-vector 14 nil)))
-    ;; (error "%s() is not yet implemented" fname)
     (aset result *cpio-ino-parsed-idx*        ino)
     (aset result *cpio-mode-parsed-idx*       mode)
     (aset result *cpio-uid-parsed-idx*        uid)
@@ -1401,14 +1390,12 @@ many are simply invented."
   "Return non-nil if there's already an entry called NAME
 in the current archive."
   (let ((fname "cpio-entry-exists-p"))
-    ;; (error "%s() is not yet implemented" fname)
     (assoc name (cpio-catalog))))
 
 (defun cpio-move-to-entry (entry-name)
   "Move the point to ENTRY-NAME."
   (let ((fname "cpio-move-to-entry")
        (where nil))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): You're not in a cpio-dired buffer." fname))
     (save-excursion
@@ -1475,7 +1462,6 @@ since either the beginning or the last save.")
   "Return non-NIL if the catalog has been modified
 and, thus, the archive can be saved."
   (let ((fname "cpio-dired-modified-p"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): only makes sense in a cpio-dired buffer."))
     *cpio-dired-modified*))
@@ -1483,7 +1469,6 @@ and, thus, the archive can be saved."
 (defun cpio-dired-set-modified ()
   "Flag the catalog as modified."
   (let ((fname "cpio-dired-set-modified"))
-    ;; (error "%s() is not yet implemented" fname)
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): only makes sense in a cpio-dired buffer."))
     (setq *cpio-dired-modified* t)))
@@ -1491,7 +1476,6 @@ and, thus, the archive can be saved."
 (defun cpio-dired-set-unmodified ()
   "Flag the catalog as not modified."
   (let ((fname "cpio-dired-set-unmodified"))
-    ;; (error "%s() is not yet implemented" fname)
     ;; HEREHERE There's probably more to this than just the following.
     (unless (eq major-mode 'cpio-dired-mode)
       (error "%s(): only makes sense in a cpio-dired buffer."))