mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-02-02 20:16:25 +00:00
Use delete-char instead of delete-backward-char.
* lisp/leim/quail/hangul.el * lisp/progmodes/cperl-mode.el: Use delete-char instead of delete-backward-char, fixes compilation warnings.
This commit is contained in:
parent
611a4791a4
commit
f469024eea
@ -1,3 +1,9 @@
|
|||||||
|
2015-03-19 Vibhav Pant <vibhavp@gmail.com>
|
||||||
|
|
||||||
|
* lisp/leim/quail/hangul.el
|
||||||
|
* lisp/progmodes/cperl-mode.el: Use delete-char instead of
|
||||||
|
delete-backward-char, fixes compilation warnings.
|
||||||
|
|
||||||
2015-03-18 Michael Albinus <michael.albinus@gmx.de>
|
2015-03-18 Michael Albinus <michael.albinus@gmx.de>
|
||||||
|
|
||||||
* net/tramp-sh.el (tramp-do-directory-files-and-attributes-with-stat):
|
* net/tramp-sh.el (tramp-do-directory-files-and-attributes-with-stat):
|
||||||
|
@ -351,7 +351,7 @@ Other parts are the same as a `hangul3-input-method-cho'."
|
|||||||
(aset hangul-queue i 0))
|
(aset hangul-queue i 0))
|
||||||
(if (notzerop (apply '+ (append hangul-queue nil)))
|
(if (notzerop (apply '+ (append hangul-queue nil)))
|
||||||
(hangul-insert-character hangul-queue)
|
(hangul-insert-character hangul-queue)
|
||||||
(delete-backward-char 1)))
|
(delete-char -1)))
|
||||||
|
|
||||||
(defun hangul-to-hanja-conversion ()
|
(defun hangul-to-hanja-conversion ()
|
||||||
"Convert the previous hangul character to the corresponding hanja character.
|
"Convert the previous hangul character to the corresponding hanja character.
|
||||||
@ -363,7 +363,7 @@ When a Korean input method is off, convert the following hangul character."
|
|||||||
(if (and (overlayp quail-overlay) (overlay-start quail-overlay))
|
(if (and (overlayp quail-overlay) (overlay-start quail-overlay))
|
||||||
(progn
|
(progn
|
||||||
(setq hanja-character (hangul-to-hanja-char (preceding-char)))
|
(setq hanja-character (hangul-to-hanja-char (preceding-char)))
|
||||||
(setq delete-func (lambda () (delete-backward-char 1))))
|
(setq delete-func (lambda () (delete-char -1))))
|
||||||
(setq hanja-character (hangul-to-hanja-char (following-char)))
|
(setq hanja-character (hangul-to-hanja-char (following-char)))
|
||||||
(setq delete-func (lambda () (delete-char 1))))
|
(setq delete-func (lambda () (delete-char 1))))
|
||||||
(when hanja-character
|
(when hanja-character
|
||||||
|
@ -2281,8 +2281,8 @@ to nil."
|
|||||||
(search-backward ")")
|
(search-backward ")")
|
||||||
(if (eq last-command-event ?\()
|
(if (eq last-command-event ?\()
|
||||||
(progn ; Avoid "if (())"
|
(progn ; Avoid "if (())"
|
||||||
(delete-backward-char 1)
|
(delete-char -1)
|
||||||
(delete-backward-char -1))))
|
(delete-char 1))))
|
||||||
(if delete
|
(if delete
|
||||||
(cperl-putback-char cperl-del-back-ch))
|
(cperl-putback-char cperl-del-back-ch))
|
||||||
(if cperl-message-electric-keyword
|
(if cperl-message-electric-keyword
|
||||||
@ -2588,7 +2588,7 @@ Will untabify if `cperl-electric-backspace-untabify' is non-nil."
|
|||||||
(delete-region (point) p))
|
(delete-region (point) p))
|
||||||
(if cperl-electric-backspace-untabify
|
(if cperl-electric-backspace-untabify
|
||||||
(backward-delete-char-untabify arg)
|
(backward-delete-char-untabify arg)
|
||||||
(delete-backward-char arg)))))
|
(delete-char (- arg))))))
|
||||||
|
|
||||||
(put 'cperl-electric-backspace 'delete-selection 'supersede)
|
(put 'cperl-electric-backspace 'delete-selection 'supersede)
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user