[emacs] Some changes from the past months

* emacs/.emacs.d/init/ycp-complete.el: comment why corfu does not work
well with gud
* emacs/.emacs.d/init/ycp-editing.el: bind my-write-file to C-x C-w;
change viper-syntax-preference to 'extended
* emacs/.emacs.d/init/ycp-org.el: comment on tab-width
* emacs/.emacs.d/lisp/my/my-buffer.el: add a function
`my-save-text-and-switch-to-buffer' that Save TEXT to FILE-NAME and
switch to the buffer
* emacs/.emacs.d/lisp/my/my-editing.el: renamed a function; and
override `viper-forward-word-kernel' and
`viper-backward-word-kernel' (why?); add function `my-write-file',
which is the same as `write-file', but keep the old buffer and remain
there.
* emacs/.emacs.d/lisp/my/my-mariadb.el: remove sleep in
`my-gdb-maria-spider'; add a function to fetch source of a mariadb kb
entry
* emacs/.emacs.d/lisp/my/my-net.el: extract out local I/O and buffer
logic from `my-fetch-url-save-and-switch' to
`my-save-text-and-switch-to-buffer'.
* emacs/.emacs.d/lisp/my/my-org-jira.el: fix formatting of
`my-org-jira--render-issue', and add affected-versions, fix-versions
and related-issues for rendering
* emacs/.emacs.d/lisp/my/my-prog.el: ensure indent-tabs-mode is by
default nil in prog-modes, to protect from c-style-alist overriding
* mariadb-server/.dir-locals.el: Moved from sql/.dir-locals.el

1 files changed, 2 insertions, 11 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-net.el b/emacs/.emacs.d/lisp/my/my-net.el
index 0eafb7a..1f1cbc6 100644
--- a/emacs/.emacs.d/lisp/my/my-net.el
+++ b/emacs/.emacs.d/lisp/my/my-net.el
@@ -80,18 +80,9 @@ It checks the STATUS, and if it is ok, saves the payload to FILE-NAME."
   (when (plist-get status :error)
     (error "My fetch failed: %s" (plist-get status :error)))
   (my-delete-http-header)
-  (let ((to-insert (buffer-string))
-        (buffer (find-file-noselect file-name))
-        (coding-system-for-write 'utf-8))
+  (let ((to-insert (buffer-string)))
     (kill-buffer)
-    (with-current-buffer buffer
-      (let ((inhibit-read-only t))
-        (erase-buffer)
-        (insert to-insert))
-      (goto-char (point-min))
-      (save-buffer)
-      (revert-buffer t t))
-    (switch-to-buffer buffer))
+    (my-save-text-and-switch-to-buffer to-insert file-name))
   )
 
 (defun my-kill-http-header ()