Function: etags-regen--append-tags

etags-regen--append-tags is a byte-compiled function defined in etags-regen.el.gz.

Signature

(etags-regen--append-tags &rest FILE-NAMES)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/etags-regen.el.gz
(defun etags-regen--append-tags (&rest file-names)
  (goto-char (point-max))
  (let ((options (etags-regen--build-program-options (etags-regen--ctags-p)))
        (fun (if (equal (file-name-directory etags-regen--tags-file)
                        (expand-file-name etags-regen--tags-root))
                 #'file-relative-name #'file-local-name))
        (inhibit-read-only t))
    (with-connection-local-variables
     (etags-regen--process-file-region
      nil nil shell-file-name t etags-regen--errors-buffer-name
      shell-command-switch
      (format "%s %s -o - %s"
              etags-regen-program (mapconcat #'identity options " ")
              (mapconcat fun file-names " ")))))
  ;; FIXME: Is there a better way to do this?
  ;; Completion table is the only remaining place where the
  ;; update is not incremental.
  (setq-default tags-completion-table nil))