diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2015-03-19 06:45:58 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2015-03-19 06:45:58 +0530 |
| commit | f469024eea692a163beb98a824b5cc0a4e8bcda8 (patch) | |
| tree | ca960de8f4190552db79320fbc109c3355476442 /lisp/leim | |
| parent | 611a4791a4499eaaa5d1d652e538485b7c15ff0b (diff) | |
| download | emacs-f469024eea692a163beb98a824b5cc0a4e8bcda8.tar.gz | |
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.
Diffstat (limited to 'lisp/leim')
| -rw-r--r-- | lisp/leim/quail/hangul.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el index 243fa042571..12d7358841b 100644 --- a/lisp/leim/quail/hangul.el +++ b/lisp/leim/quail/hangul.el @@ -351,7 +351,7 @@ Other parts are the same as a `hangul3-input-method-cho'." (aset hangul-queue i 0)) (if (notzerop (apply '+ (append hangul-queue nil))) (hangul-insert-character hangul-queue) - (delete-backward-char 1))) + (delete-char -1))) (defun hangul-to-hanja-conversion () "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)) (progn (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 delete-func (lambda () (delete-char 1)))) (when hanja-character |