From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Subject: Re: [PATCH] org-macs: Fix indentation for fullwidth characters
Date: Mon, 16 Sep 2019 18:50:08 +0200
Message-ID: <871rwg6v9b.fsf@nicolasgoaziou.fr>
References: <20190907190800.15618-1-sankaku.git@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:47172)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <mail@nicolasgoaziou.fr>) id 1i9uCl-0000CA-AE
 for emacs-orgmode@gnu.org; Mon, 16 Sep 2019 12:50:28 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <mail@nicolasgoaziou.fr>) id 1i9uCf-0002ko-2F
 for emacs-orgmode@gnu.org; Mon, 16 Sep 2019 12:50:22 -0400
Received: from relay12.mail.gandi.net ([217.70.178.232]:45989)
 by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <mail@nicolasgoaziou.fr>)
 id 1i9uCe-0002kN-R1
 for emacs-orgmode@gnu.org; Mon, 16 Sep 2019 12:50:16 -0400
In-Reply-To: <20190907190800.15618-1-sankaku.git@gmail.com> (Yuichiro
 Hakozaki's message of "Sun, 8 Sep 2019 04:08:00 +0900")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
 <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: Yuichiro Hakozaki <sankaku.git@gmail.com>
Cc: emacs-orgmode@gnu.org

Hello,

Yuichiro Hakozaki <sankaku.git@gmail.com> writes:

> @@ -335,7 +335,7 @@ if it fails."
>  		 (let ((min-ind (point-max)))
>  		   (save-excursion
>  		     (while (re-search-forward "^[ \t]*\\S-" nil t)
> -		       (let ((ind (1- (current-column))))
> +		       (let ((ind (- (current-column) (char-width (char-before)))))

I used `current-indentation' instead. Thank you for the bug report, and
the patch.

Regards,

-- 
Nicolas Goaziou