Function: archive-arc-rename-entry

archive-arc-rename-entry is a byte-compiled function defined in arc-mode.el.gz.

Signature

(archive-arc-rename-entry NEWNAME DESCR)

Source Code

;; Defined in /usr/src/emacs/lisp/arc-mode.el.gz
(defun archive-arc-rename-entry (newname descr)
  (if (string-match "[:\\/]" newname)
      (error "File names in arc files must not contain a directory component"))
  (if (> (length newname) 12)
      (error "File names in arc files are limited to 12 characters"))
  (let ((name (concat newname (make-string (- 13 (length newname)) ?\0)))
	(inhibit-read-only t))
    (save-restriction
      (save-excursion
	(widen)
	(goto-char (+ archive-proper-file-start 2
                      (archive--file-desc-pos descr)))
	(delete-char 13)
	(arc-insert-unibyte name)))))