all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#55735: Non-Latin input in emacsclient
@ 2022-05-31  8:16 anton-gogo--- via Bug reports for GNU Emacs, the Swiss army knife of text editors
  2022-05-31 11:38 ` Eli Zaretskii
  0 siblings, 1 reply; 3+ messages in thread
From: anton-gogo--- via Bug reports for GNU Emacs, the Swiss army knife of text editors @ 2022-05-31  8:16 UTC (permalink / raw)
  To: 55735


[-- Attachment #1.1: Type: text/plain, Size: 6565 bytes --]


Dont work cyrillic!!!
 
It's when I run it as emacs --deamon + emacsclient, begins the
madness. Each keystroke, which should insert a character, results in an
action, like selecting words, jumping around expressions, selecting
functions and so on. Almost like (a horrifying thought) Vim!
 
I’m use fedora distibution with gnome
lsb_release:
LSB Version:    :core-4.1-amd64:core-4.1-noarch
Distributor ID:    Fedora
Description:    Fedora release 36 (Thirty Six)
Release:    36
Codename:    ThirtySix
 
Terminal font is Terminus
 
I sended my emacs config
And I sended my inputrc config
 
My locale terminal:
LANG=ru_RU.UTF-8
LC_CTYPE="ru_RU.UTF-8"
LC_NUMERIC="ru_RU.UTF-8"
LC_TIME="ru_RU.UTF-8"
LC_COLLATE="ru_RU.UTF-8"
LC_MONETARY="ru_RU.UTF-8"
LC_MESSAGES="ru_RU.UTF-8"
LC_PAPER="ru_RU.UTF-8"
LC_NAME="ru_RU.UTF-8"
LC_ADDRESS="ru_RU.UTF-8"
LC_TELEPHONE="ru_RU.UTF-8"
LC_MEASUREMENT="ru_RU.UTF-8"
LC_IDENTIFICATION="ru_RU.UTF-8"
LC_ALL=
 
In GNU Emacs 27.2 (build 1, x86_64-redhat-linux-gnu, GTK+ Version 3.24.31, cairo version 1.17.4)
 of 2022-03-24 built on buildvm-x86-25.iad2.fedoraproject.org
System Description: Fedora Linux 36 (Workstation Edition)
 
Recent messages:
Loading /usr/share/emacs/site-lisp/site-start.d/autoconf-init.el (source)...done
Loading /usr/share/emacs/site-lisp/site-start.d/desktop-entry-mode-init.el (source)...done
Loading quail/cyrillic...done
[yas] Prepared just-in-time loading of snippets successfully.
Starting Emacs daemon.
Package cl is deprecated
When done with a buffer, type C-x # [2 times]
 
Configured using:
 'configure --build=x86_64-redhat-linux-gnu
 --host=x86_64-redhat-linux-gnu --program-prefix=
 --disable-dependency-tracking --prefix=/usr --exec-prefix=/usr
 --bindir=/usr/bin --sbindir=/usr/sbin --sysconfdir=/etc
 --datadir=/usr/share --includedir=/usr/include --libdir=/usr/lib64
 --libexecdir=/usr/libexec --localstatedir=/var
 --sharedstatedir=/var/lib --mandir=/usr/share/man
 --infodir=/usr/share/info --with-dbus --with-gif --with-jpeg --with-png
 --with-rsvg --with-tiff --with-xft --with-xpm --with-x-toolkit=gtk3
 --with-gpm=no --with-xwidgets --with-modules --with-harfbuzz
 --with-cairo --with-json build_alias=x86_64-redhat-linux-gnu
 host_alias=x86_64-redhat-linux-gnu CC=gcc 'CFLAGS=-DMAIL_USE_LOCKF -O2
 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches
 -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2
 -Wp,-D_GLIBCXX_ASSERTIONS
 -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong
 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic
 -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection'
 LDFLAGS=-Wl,-z,relro
 PKG_CONFIG_PATH=:/usr/lib64/pkgconfig:/usr/share/pkgconfig'
 
Configured features:
XPM JPEG TIFF GIF PNG RSVG CAIRO SOUND DBUS GSETTINGS GLIB NOTIFY
INOTIFY ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE HARFBUZZ M17N_FLT LIBOTF
ZLIB TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM MODULES THREADS XWIDGETS
LIBSYSTEMD JSON PDUMPER GMP
 
Important settings:
  value of $LANG: ru_RU.UTF-8
  value of $XMODIFIERS: @im=ibus
  locale-coding-system: utf-8-unix
 
Major mode: Text
 
Minor modes in effect:
  global-activity-watch-mode: t
  activity-watch-mode: t
  async-bytecomp-package-mode: t
  projectile-mode: t
  delete-selection-mode: t
  cua-mode: t
  yas-global-mode: t
  yas-minor-mode: t
  global-auto-complete-mode: t
  global-display-line-numbers-mode: t
  display-line-numbers-mode: t
  show-paren-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t
 
Load-path shadows:
None found.
 
Features:
(shadow sort mail-extr emacsbug message rmc puny dired dired-loaddefs
format-spec rfc822 mml mml-sec epa derived epg epg-config gnus-util
rmail rmail-loaddefs text-property-search time-date mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev gmm-utils sendmail rfc2047
rfc2045 ietf-drums mm-util mail-prsvr term/xterm xterm server
activity-watch-mode request mailheader autorevert filenotify mail-utils
url url-proxy url-privacy url-expand url-methods url-history url-cookie
url-domsuf url-util mailcap ert pp ewoc debug backtrace find-func helm
helm-core easy-mmode async-bytecomp helm-global-bindings helm-easymenu
helm-source helm-multi-match helm-lib async projectile lisp-mnt grep
ibuf-ext ibuffer ibuffer-loaddefs multiple-cursors
mc-separate-operations rectangular-region-mode mc-mark-pop mc-edit-lines
mc-hide-unmatched-lines-mode mc-mark-more mc-cycle-cursors
multiple-cursors-core rect delsel cua-base yasnippet-snippets cl-extra
yasnippet advice flymake-proc flymake compile comint ansi-color ring
warnings thingatpt auto-complete-config auto-complete edmacro kmacro
popup bs display-line-numbers paren quail help-mode spacemacs-dark-theme
spacemacs-common info rx cl package easymenu browse-url url-handlers
url-parse auth-source cl-seq eieio eieio-core cl-macs eieio-loaddefs
password-cache json subr-x map url-vars seq byte-opt gv bytecomp
byte-compile cconv cl-loaddefs cl-lib cyril-util tooltip eldoc electric
uniquify ediff-hook vc-hooks lisp-float-type mwheel term/x-win x-win
term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode elisp-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch timer
select scroll-bar mouse jit-lock font-lock syntax facemenu font-core
term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms
cp51932 hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese composite charscript charprop case-table epa-hook
jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote threads dbusbind inotify dynamic-setting system-font-setting
font-render-setting xwidget-internal cairo move-toolbar gtk x-toolkit x
multicharge-tty make-network-process emacs)
 
Memory information:
((conses 16 169739 8842)
 (symbols 48 16913 1)
 (strings 32 48652 2281)
 (string-bytes 1 1572648)
 (vectors 16 25501)
 (vector-slots 8 294776 6096)
 (floats 8 127 381)
 (intervals 56 316 176)
 (buffers 1000 14))

[-- Attachment #1.2: Type: text/html, Size: 8723 bytes --]

[-- Attachment #2: .emacs --]
[-- Type: application/octet-stream, Size: 11866 bytes --]

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(current-language-environment "English")
 '(custom-enabled-themes '(spacemacs-dark))
 '(custom-safe-themes
   '("bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" default))
 '(package-selected-packages
   '(helm sr-speedbar activity-watch-mode php-mode json-mode javap-mode python-mode projectile multiple-cursors smex cl-libify cl-format bshell persistent-soft ergoemacs-mode))
 '(send-mail-function 'mailclient-send-it))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

;; (set-language-environment "Russian") ;; Добавляем еще одну раскладку
;; (prefer-coding-system 'utf-8) ;; Постоянную кодировку в utf-8

(defun reverse-input-method (input-method)
  "Build the reverse mapping of single letters from INPUT-METHOD."
  (interactive
   (list (read-input-method-name "Use input method (default current): ")))
  (if (and input-method (symbolp input-method))
      (setq input-method (symbol-name input-method)))
  (let ((current current-input-method)
        (modifiers '(nil (control) (meta) (control meta))))
    (when input-method
      (activate-input-method input-method))
    (when (and current-input-method quail-keyboard-layout)
      (dolist (map (cdr (quail-map)))
        (let* ((to (car map))
               (from (quail-get-translation
                      (cadr map) (char-to-string to) 1)))
          (when (and (characterp from) (characterp to))
            (dolist (mod modifiers)
              (define-key local-function-key-map
                (vector (append mod (list from)))
                (vector (append mod (list to)))))))))
    (when input-method
      (activate-input-method current))))

(reverse-input-method 'russian-computer)

;; Мои функции
;;; Выделить одну линию
(defun my/mark-line ()
  (interactive)
  (beginning-of-line)
  (setq this-command-keys-shift-translated t)
  (call-interactively 'end-of-line))

;;; Функции для Sift Selection Move
;;;; Назад на символ
;; (defun my/ssel-backward-char ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'backward-char))
;; ;;;; Вперед на символ
;; (defun my/ssel-forward-char ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'forward-char))
;; ;;;; Вперед на слово
;; (defun my/ssel-forward-word ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'forward-word))
;; ;;;; Назад на слово
;; (defun my/ssel-backward-word ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'backward-word))
;; ;;;; Вверх на строку
;; (defun my/ssel-previous-line ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'previous-line))
;; ;;;; Вниз на строку
;; (defun my/ssel-next-line ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'next-line))
;; ;;;; Вверх на параграф
;; (defun my/ssel-backward-parapgraph ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'backward-paragraph))
;; ;;;; Вниз на параграф
;; (defun my/ssel-forward-paragraph ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'forward-paragraph))
;; ;;;; В конец стрки
;; (defun my/ssel-end-of-line ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'end-of-line))
;; ;;;; В начало строки
;; (defun my/ssel-beginning-of-line ()
;;   (interactive)
;;   (setq this-command-keys-shift-translated t)
;;   (call-interactively 'beginning-of-line))

(setq show-parent-style 'expression)
(show-paren-mode 2)

(menu-bar-mode -1)
(tool-bar-mode -1)

(add-to-list 'load-path "/home/whatis/.emacs.d/lisp/")

;; Плагины и расшарения
;;; Ergoemacs
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)

;(require 'ergoemacs-mode)
;(setq ergoeamcs-theme nil)
;(setq ergoeamcs-keyboard "us")
;(ergoemacs-mode 1)

;;; Linum/line-numbers-mode
(when (version<= "26.0.50" emacs-version )
  (global-display-line-numbers-mode))

;;; Ido
(setq ido-mode t)
(setq ido-enable-flex-matching t)

;;; Bs
(require 'bs)
(setq bs-configurations
      '(("files" "^\\*scratch\\*" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last)))
;; (global-set-key (kbd "<f2>") 'bs-show)

;;; Auto complete
(require 'auto-complete)
(setq auto-complete-mode t)
(ac-config-default)

;;; Yasnippet
(require 'yasnippet)
(yas-global-mode 1)
(yas/load-directory "~/.emacs.d/snippets")

;;; Cua mode
(cua-mode t)

;;; Multiple Cursors
(require 'multiple-cursors)
(multiple-cursors-mode t)

;;; Projectile
(require 'projectile)
(projectile-mode t)

;;; Hs mode
;; (hs-minor-mode t)

;;; Sr-speedbar
;; (require 'sr-speedbar)

;;; Helm
(require 'helm)

;;; Activity watch
(global-activity-watch-mode)

;;; Term-mode
;;;; Current coding
;; (add-hook 'term-exec-hook
         ;; (function
          ;; (lambda ()
            ;; (set-buffer-process-coding-system 'utf-8 'utf-8))))

;; Сочетания клавиш
;;; Перемещение 
;;;; На символ/линию
(global-set-key (kbd "M-j") 'backward-char) ;; Влево
(global-set-key (kbd "M-l") 'forward-char) ;; Вправо
(global-set-key (kbd "M-k") 'next-line) ;; Вниз
(global-set-key (kbd "M-i") 'previous-line) ;; Вверх

;;;; На слово/ параграф
(global-set-key (kbd "C-M-j") 'backward-word) ;; Влево
(global-set-key (kbd "C-M-l") 'forward-word) ;; Вправо
(global-set-key (kbd "C-M-k") 'forward-paragraph) ;; Вниз

(global-unset-key (kbd "C-M-i")) ;; Удаляем стандартный сочетание
(define-key emacs-lisp-mode-map (kbd "C-M-i") nil) ;; Удаляем стандартное сочетание
(add-hook 'emacs-lisp-mode-hook (lambda () (define-key emacs-lisp-mode-map (kbd "C-M-i") nil))) ;; Удаляем стандартное сочетание
(global-set-key (kbd "C-M-i") 'backward-paragraph) ;; Вверх

;;;; На конец/ начало линии
(global-set-key (kbd "C-c l") 'end-of-line) ;; Конец строки
(global-set-key (kbd "C-c j") 'beginning-of-line) ;; Начало строки
;;;; На конец/ начало файла
(global-set-key (kbd "C-c e") 'end-of-buffer) ;; Конец файла
(global-set-key (kbd "C-c b") 'beginning-of-buffer) ;; Начало файла

;;;; Центрование
(global-set-key (kbd "M-p") 'recenter-top-bottom)

;;; Общие
(global-set-key (kbd "M-s") 'other-window) ;; Перемещениен на другое окно
(global-set-key (kbd "C-f") 'isearch-forward) ;; Поиск по словам
(global-set-key (kbd "M-;") 'isearch-forward) ;; Поиск по словам далее

(global-unset-key (kbd "C-M-;")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "C-M-;") 'isearch-backward) ;; Поиск по словам назад
(add-hook 'isearch-mode-hook
 (lambda ()
 (define-key isearch-mode-map (kbd "C-f") 'isearch-repeat-forward)
 )
 ) ;; Повторение поиска вперед
(add-hook 'isearch-mode-hook
 (lambda ()
 (define-key isearch-mode-map (kbd "M-;") 'isearch-repeat-forward)
 )
 ) ;; Повторение поиска вперед
(add-hook 'isearch-mode-hook
 (lambda ()
 (define-key isearch-mode-map (kbd "C-M-;") 'isearch-repeat-backward)
 )
 ) ;; Повторение поиска назад

(global-set-key (kbd "C-'") 'comment-line) ;; Закомментирвоать строку
(global-set-key (kbd "M-a") 'execute-extended-command) ;; execute-extended-command
(global-set-key (kbd "M-o") (kbd "<backspace>")) ;; Удалить
(global-set-key (kbd "C-s") 'save-buffer) ;; Сохранить файл
(global-set-key (kbd "C-w") 'exit-splash-screen) ;; Закрыть файл/ бафер
(global-set-key (kbd "C-z") 'undo) ;; Вернуться назад
;(global-set-key (kbd "C-x 2") 'split-window-below) ;; Разделить экран по вертинкали
;(global-set-key (kbd "C-x 1") 'delete-other-windows) ;; Удалить другие окна/ оставить только активные
;(global-set-key (kbd "C-x 3") 'split-window-right) ;; Разделить экран по горизонтали
;(global-set-key (kbd "C-v") 'yank) ;; Вставить
;(global-set-key (kbd "C-c") 'kill-ring-save) ;; Копировать
;(global-set-key (kbd "C-x") 'kill-region) ;; Вырезать
(global-unset-key (kbd "C-n")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "C-n") 'set-mark-command) ;; Включить режим выделения

(global-unset-key (kbd "M-7")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "M-7") 'my/mark-line) ;; Выделяем строку

;;; Multiple Cursors
(global-unset-key (kbd "M-'")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "M-'") 'mc/mark-next-like-this) ;; Выделить следующее такое же выражение
(global-set-key (kbd "C-M-'") 'mc/mark-previous-like-this) ;; Выделить предыдущее такое же выражение

(global-unset-key (kbd "C-M-a")) ;; Удаляем стандартное выражение
(global-set-key (kbd "C-M-a") 'mc/mark-all-like-this) ;; Выделить все похожие выражения

;;; Bs
(global-unset-key (kbd "C-x C-b")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "C-x C-b") 'bs-show) ;; Красивое меню для показа списка буферов

;;; Shell
(global-set-key (kbd "C-x \\") 'shell-command) ;; Выполнить какую нибудь команду в консоли
(global-set-key (kbd "C-x M-\\") 'shell) ;; Вызывать консоль

;;; Prijectile
(global-unset-key (kbd "C-M-o")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "C-M-o") 'projectile-find-file) ;; Найти проект/ файл в проекте

;;; Bookmarks
(global-unset-key (kbd "C-b")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "C-b") 'bookmark-set) ;; Установить заметку
(global-unset-key (kbd "C-M-s")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "C-M-s") 'bookmark-save) ;; Сохранить все заметки
(global-set-key (kbd "<f2>") 'bookmark-bmenu-list) ;; Показать список заметок
(global-unset-key (kbd "C-j")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "C-j") 'bookmark-jump) ;; Найти по названию заметки и переместиться к ней

;;; Hs mode
(global-unset-key (kbd "M-,")) ;; Удаляем стандартное сочетание
(global-unset-key (kbd "M-.")) ;; Удаляем стандартное сочетание
(global-set-key (kbd "M-,") 'hs-hide-block) ;; Свернуть блок кода
(global-set-key (kbd "M-.") 'hs-show-block) ;; Развернуть блок кода

;;; Helm mode
(global-set-key (kbd "C-o") 'helm-find-files) ;; Открыть файл

[-- Attachment #3: .inputrc --]
[-- Type: application/octet-stream, Size: 1739 bytes --]

# /etc/inputrc - global inputrc for libreadline
# See readline(3readline) and `info rluserman' for more information.

# Be 8 bit clean.
set input-meta on
set output-meta on

# To allow the use of 8bit-characters like the german umlauts, uncomment
# the line below. However this makes the meta key not work as a meta key,
# which is annoying to those which don't need to type in 8-bit characters.

set convert-meta off

# try to enable the application keypad when it is called.  Some systems
# need this to enable the arrow keys.
# set enable-keypad on

# see /usr/share/doc/bash/inputrc.arrows for other codes of arrow keys

# do not bell on tab-completion
# set bell-style none
# set bell-style visible

# some defaults / modifications for the emacs mode
$if mode=emacs

# allow the use of the Home/End keys
"\e[1~": beginning-of-line
"\e[4~": end-of-line

# allow the use of the Delete/Insert keys
"\e[3~": delete-char
"\e[2~": quoted-insert

# mappings for "page up" and "page down" to step to the beginning/end
# of the history
# "\e[5~": beginning-of-history
# "\e[6~": end-of-history

# alternate mappings for "page up" and "page down" to search the history
# "\e[5~": history-search-backward
# "\e[6~": history-search-forward

# mappings for Ctrl-left-arrow and Ctrl-right-arrow for word moving
"\e[1;5C": forward-word
"\e[1;5D": backward-word
"\e[5C": forward-word
"\e[5D": backward-word
"\e\e[C": forward-word
"\e\e[D": backward-word

$if term=rxvt
"\e[7~": beginning-of-line
"\e[8~": end-of-line
"\eOc": forward-word
"\eOd": backward-word
$endif

# for non RH/Debian xterm, can't hurt for RH/Debian xterm
# "\eOH": beginning-of-line
# "\eOF": end-of-line

# for freebsd console
# "\e[H": beginning-of-line
# "\e[F": end-of-line


^ permalink raw reply	[flat|nested] 3+ messages in thread
end of thread, other threads:[~2022-06-30 10:39 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-05-31  8:16 bug#55735: Non-Latin input in emacsclient anton-gogo--- via Bug reports for GNU Emacs, the Swiss army knife of text editors
2022-05-31 11:38 ` Eli Zaretskii
2022-06-30 10:39   ` Lars Ingebrigtsen

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.