質問者です。
実務で焦っていたので、質問の基本をだいぶ外した質問をしてしまいました。
改めて情報です。
Emacsのバージョン
M-x emacs-version
GNU Emacs 26.3 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.24.13) of 2019-12-15
OSのバージョン(Ubuntu)
$ lsb_release -a
No LSB modules are available.
Distributor ID: Ubuntu
Description: Ubuntu 20.04 LTS
Release: 20.04
Codename: focal
.emacs.d/init.elを読み込まないとどうなるか
$ emacs -q
で起動したところ、問題の動作は起きませんでした。
問題の原因
.emacs.d/init.elを少しずつ削除して問題箇所を選んだところ、以下の部分に当たりました。
これは、google-translateを使ってカーソル位置の英語を日本語にするもので、以下はC-c wを割り当てています。
もとはるびきちさんのブログからいただいたものですが、ある程度改造して分からなくなってしまっています。
;(require 'google-translate)
;(global-set-key (kbd "C-c w") 'google-translate-at-point)
;(global-set-key (kbd "C-c W") 'google-translate-query-translate)
;
; (require 'popwin)
; (setq display-buffer-function 'popwin:display-buffer)
;
; (require 'google-translate)
; (require 'google-translate-default-ui)
;
; (defvar google-translate-english-chars "[:ascii:]"
; "これらの文字が含まれているときは英語とみなす")
; (defun google-translate-enja-or-jaen (&optional string)
; "regionか現在位置の単語を翻訳する。C-u付きでquery指定も可能"
; (interactive)
; (setq string
; (cond ((stringp string) string)
; (current-prefix-arg
; (read-string "Google Translate: "))
; ((use-region-p)
; (buffer-substring (region-beginning) (region-end)))
; (t
; (thing-at-point 'word))))
; (let* ((asciip (string-match
; (format "\\`[%s]+\\'" google-translate-english-chars)
; string)))
; (run-at-time 0.1 nil 'deactivate-mark)
; (google-translate-translate
; (if asciip "en" "ja")
; (if asciip "ja" "en")
; string)))
;
; (push '("\*Google Translate\*" :height 0.5 :stick t) popwin:special-display-config)
;
; (global-set-key (kbd "C-c w") 'google-translate-enja-or-jaen)
;
;
; ;;;;; Fix error of "Failed to search TKK"
; (defun google-translate--get-b-d1 ()
; ;; TKK='427110.1469889687'
; (list 427110 1469889687))
これをコメント化したところ、問題の現象は起きなくなりました。
google-translateは使えた方が便利なので、その後はさらに追求します。
コメントをくださったみなさん、ありがとうございました。
ただ、Emacsの以前のバージョンでは上記のelispを読み込んでも、表題の動作が起きなかったことは確かです。
なので、元質問のようになってしまいました。
どのバージョンからアップしたのかは、あいにく覚えていません(スミマセン)。
なんとも甘い質問者で、反省いたします。
M-x describe-variable
を実行して、find-file-hook
を入力した結果を確認すると何か判るかもしれません。