;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
(when (= (char-before (overlay-end quail-conv-overlay)) ?n)
;; The last char is `n'. We had better convert it to `\e$B$s\e(B'
;; before kana-kanji conversion.
- (goto-char (overlay-end quail-conv-overlay))
- (delete-char -1)
- (insert ?\e$B$s\e(B))
+ (goto-char (1- (overlay-end quail-conv-overlay)))
+ (insert ?\e$B$s\e(B)
+ (delete-char 1))
(let* ((from (copy-marker (overlay-start quail-conv-overlay)))
(len (- (overlay-end quail-conv-overlay) from)))
(quail-delete-overlays)