Add tangle-append

global.org

@@ -872,6 +872,16 @@
      (advice-add 'org-babel-tangle-collect-blocks :override #'org-babel-tangle-collect-blocks-handle-tangle-list)
      (advice-add 'org-babel-tangle-single-block :around #'org-babel-tangle-single-block-handle-tangle-list)
    #+END_SRC
+*** Append tangle
+    #+BEGIN_SRC emacs-lisp
+      (defun org-babel-tangle-append (filename)
+        "Append source code block at point to its tangle file.
+      The command works like `org-babel-tangle' with prefix arg
+      but `delete-file' is ignored."
+        (interactive)
+        (cl-letf (((symbol-function 'delete-file) #'ignore))
+          (org-babel-tangle '(4) filename)))
+    #+END_SRC
 ** elisp
 *** Paredit
     #+BEGIN_SRC emacs-lisp