Received: (at 76853) by debbugs.gnu.org; 8 Mar 2025 08:21:48 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Sat Mar 08 03:21:48 2025 Received: from localhost ([127.0.0.1]:52664 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1tqpRM-0002yH-9R for submit <at> debbugs.gnu.org; Sat, 08 Mar 2025 03:21:48 -0500 Received: from mail-ed1-x531.google.com ([2a00:1450:4864:20::531]:56477) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from <stefankangas@HIDDEN>) id 1tqpRJ-0002xz-4N for 76853 <at> debbugs.gnu.org; Sat, 08 Mar 2025 03:21:45 -0500 Received: by mail-ed1-x531.google.com with SMTP id 4fb4d7f45d1cf-5e4d50ed90aso3291322a12.0 for <76853 <at> debbugs.gnu.org>; Sat, 08 Mar 2025 00:21:45 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1741422099; x=1742026899; darn=debbugs.gnu.org; h=cc:to:subject:message-id:date:mime-version:references:in-reply-to :from:from:to:cc:subject:date:message-id:reply-to; bh=eNfZ3Ns4rhI8qE1Fu9+/8hM2F5YEnckUluBCfcB7tIw=; b=kCBo6hdILPnm66cxJ0GZsA0sGAY8Vg9C+Q6SldCh6I9TFv2lsjFJypKunW0DmHBVoO um6cgD2p+eIC8Z5ah6JAvFNZAffqG1X2jBz8wfRdbVHmr6/wOoz0tKHSoXs/4kr0dHMI rnflkqAljyuRnQCUKJTobXgHfDuMYzA7i82Tv5gMNlW/PaEnlzwk3A/XG8gQ8MJxScv5 9U+FpVs/y66gO3iQleyOliyAX7gMKnoQ+MwOwCWwIJlz/Ip6OLTkdkyjCj42xOHI8LRo ZWAyLZ6sBwzb32QI5tSwlwCWW+PCCrINUOwphRkclFT8RJJF9+Yv0wkkYSUnGN6/qjlh f9/Q== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1741422099; x=1742026899; h=cc:to:subject:message-id:date:mime-version:references:in-reply-to :from:x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=eNfZ3Ns4rhI8qE1Fu9+/8hM2F5YEnckUluBCfcB7tIw=; b=oYuWEEj7ohkJFdNzC30JAPwTct8lyAKHscKJLdhhKh6pm+cLA1qrXBmDoUcnltYnXu luO/TzbV01+WwMBsrhnvLlupZ33YJR7YOp5NeqR9Z28Go+bcapvpPaBwWPBJ789Kjisu G2MreHzjf+62zQFz90mqk6QyiCstrsjovulh58P6G1E6ZCSmwRaLcwDa4RO9am5Ogqg3 yfRrE7XqjmeQgwzVnP65uOpmKzYtXB3JiE+pWexevxP0WytOZy57H5AmVKUdQr03SrbJ 7yj6ARthcIA+uIfX+ZBU8xulS6cj1C3wOnNoD5uJmZONdKyR083Sa7c3aLWmRSO0HL4M 1Hdw== X-Forwarded-Encrypted: i=1; AJvYcCVxUz7Z8GCbQnpTtLb8iW1d3dfft8BKaKmOyta/0+TxNVpHmU4lX3S9xtzbPGNbHHuo+nF1LQ==@debbugs.gnu.org X-Gm-Message-State: AOJu0YxhoFGgjW26D0jXHr+56SSr0am71oWW+IyDt5dvn4ZfzCKsZgzR htZBOG0WzMpHa31ufclZw1OKVbx3wiDvDHkqdTGwR1jcBB/r5n91xm1ovJjDLX53hPPa9Up7DBf Lyx6oGPCiCqROf3ZMUV07EkkuMtIvErDVlSw= X-Gm-Gg: ASbGncsCfyy7vO8YWJefWjMm9ak3sBLPbr6SoBT2n8EKqg2lU9KpiiOLL82aSXWe6TW sbdv54abyE2Pxz3r6lokgwEfhywtvnQxuyqGN6dHHYD1wuF9mCjktLdP9qI7byNF2ad02J0fqJ8 6id73A4pRCoyD1cs0WrTno6AJjHg== X-Google-Smtp-Source: AGHT+IFfzwl2GSa/v9TQc4yqrTm0hMuLTqMHdli/zyBTZVCIKZCsVXnpzxV4rFa/2z0rqY6ruEezTplgHqsIGS1VAYA= X-Received: by 2002:a05:6402:5109:b0:5e4:99af:b7c with SMTP id 4fb4d7f45d1cf-5e5e22da11bmr7319062a12.9.1741422098756; Sat, 08 Mar 2025 00:21:38 -0800 (PST) Received: from 753933720722 named unknown by gmailapi.google.com with HTTPREST; Sat, 8 Mar 2025 00:21:37 -0800 From: Stefan Kangas <stefankangas@HIDDEN> In-Reply-To: <CACfJ7N5h=pSOuuUVqx9ue96K1c-89Xz7ZeTmCUzmRBSREf14-w@HIDDEN> References: <CACfJ7N5h=pSOuuUVqx9ue96K1c-89Xz7ZeTmCUzmRBSREf14-w@HIDDEN> MIME-Version: 1.0 Date: Sat, 8 Mar 2025 00:21:37 -0800 X-Gm-Features: AQ5f1JoQaIARp9gBAk1L-2N2tt63OCDHnwFxx8C-qm-GDSWJvwydBPbBP2nTy-E Message-ID: <CADwFkm=OuqBGoGuWtdXDG80t+Ca2dZ12mgbN4s6VSzCobk8oYg@HIDDEN> Subject: Re: bug#76853: M-b not navigating to the previous word in the prompt string inside Eshell on emacs 30.1 To: Hrishikesh S <hrish2006@HIDDEN>, 76853 <at> debbugs.gnu.org Content-Type: text/plain; charset="UTF-8" X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 76853 Cc: Jim Porter <jporterbugs@HIDDEN> X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -1.0 (-) Hrishikesh S <hrish2006@HIDDEN> writes: > In GNU Emacs 30.1, System Description: macOS 15.2 > > which I installed by simply running "brew install emacs" on my work machine, > when I'm inside the eshell buffer, typing `M-b` does not take me back by a > word like how it used to be. > > Apologies if the bug doesn't have enough information, but I was able to > verify this behavior on a fresh, clean install, without any of my > configuration or installed packages by running > > "emacs -Q" and observing the same behavior. > > I searched through existing bug reports and this seems like a new issue. Jim, any comments? > My relevant emacs config: > > > ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; > eshell ;; (require 'em-smart) (setq eshell-history-size 10000) (setq > eshell-prompt-regexp "^[^#$]*[#$] ") > > > (defun curr-dir-git-branch-string (pwd) > "Returns current git branch as a string, or the empty string if > PWD is not in a git repo (or the git command is not found)." > (interactive) > (when (and (eshell-search-path "git") > (locate-dominating-file pwd ".git")) > (let ((git-output (shell-command-to-string (concat "cd " pwd " && git > branch | grep '\\*' | sed -e 's/^\\* //'")))) > (propertize (concat " [" > (if (> (length git-output) 0) > (substring git-output 0 -1) > "(no branch)") > "]") 'face `(:foreground "green")) > ))) > > (setq eshell-prompt-function > (lambda () > (concat > (propertize ((lambda (p-lst) > (if (> (length p-lst) 3) > (concat > (mapconcat (lambda (elm) (if (zerop (length elm)) "" > (substring elm 0 1))) > (butlast p-lst 3) > "/") > "/" > (mapconcat (lambda (elm) elm) > (last p-lst 3) > "/")) > (mapconcat (lambda (elm) elm) > p-lst > "/"))) > (split-string (pwd-repl-home (eshell/pwd)) "/")) 'face > `(:foreground "yellow")) > (or (curr-dir-git-branch-string (eshell/pwd))) > (propertize " # " 'face 'default)))) > > (setq eshell-highlight-prompt nil)
bug-gnu-emacs@HIDDEN:bug#76853; Package emacs.
Full text available.
Received: (at submit) by debbugs.gnu.org; 8 Mar 2025 06:53:23 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sat Mar 08 01:53:23 2025
Received: from localhost ([127.0.0.1]:52459 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1tqo3m-0003mi-PB
for submit <at> debbugs.gnu.org; Sat, 08 Mar 2025 01:53:23 -0500
Received: from lists.gnu.org ([2001:470:142::17]:48342)
by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.84_2) (envelope-from <hrish2006@HIDDEN>)
id 1tqfj0-0005xM-NH
for submit <at> debbugs.gnu.org; Fri, 07 Mar 2025 16:59:24 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10])
by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.90_1) (envelope-from <hrish2006@HIDDEN>)
id 1tqfiu-0001ki-Cu
for bug-gnu-emacs@HIDDEN; Fri, 07 Mar 2025 16:59:16 -0500
Received: from mail-pl1-x62a.google.com ([2607:f8b0:4864:20::62a])
by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
(Exim 4.90_1) (envelope-from <hrish2006@HIDDEN>)
id 1tqfis-0001wa-Hx
for bug-gnu-emacs@HIDDEN; Fri, 07 Mar 2025 16:59:16 -0500
Received: by mail-pl1-x62a.google.com with SMTP id
d9443c01a7336-22403cbb47fso46579865ad.0
for <bug-gnu-emacs@HIDDEN>; Fri, 07 Mar 2025 13:59:13 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=gmail.com; s=20230601; t=1741384752; x=1741989552; darn=gnu.org;
h=to:subject:message-id:date:from:mime-version:from:to:cc:subject
:date:message-id:reply-to;
bh=gbvWbbDpgrUYTLA9JtCzgz429u0Y9gnH6JfIEyEX5Ug=;
b=WUXN5LxDcsveHQZIiJuZ2tWQVBCeEETWvIKsOjb6R7w1+McgHrrkJpW5TbaP4q3sy6
kc0uSOc5Yd7Gyn42jFj4AzFRpq1nPJR6vDFS09lPY2uPCrDqlg3RRbTMT6rGUXMC+2YH
R8VAXtlVrzbuF4MVJqFKYt4UtgDRFL5Rk2UXUDPdJ9EdMNA8+Nd5bzMlHUw+dXpS23N8
Jrh9zAP0X879zKaOzyvOqg4aBDzFD0rlce5IYTZQB2Y94pA56TXFo0FfdPB/48BujnXf
4K+P+ioishHb+2PLp98gmWsPvrHVFSgZbR0ZtqI2+sgTn8uIdW4mKHpcuKoD5ooBnc5a
wuEw==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=1e100.net; s=20230601; t=1741384752; x=1741989552;
h=to:subject:message-id:date:from:mime-version:x-gm-message-state
:from:to:cc:subject:date:message-id:reply-to;
bh=gbvWbbDpgrUYTLA9JtCzgz429u0Y9gnH6JfIEyEX5Ug=;
b=qwksp0JWw8t2yZ1TgdIINieFYhIhNUKD0E/OvBP3Cp/di45uhs9EtCoAUUybOYPAED
OqBcI5dzjbvGjRXj9imtwQD849gFFqKpcfPsbaJKiyQ+Xyn0i/hXXZCDsOjXzQeBAlBX
777O6r2h68tIPmuDXCIhLOZANaBzeHN6w4NgGd7qoXn5kAaxczBqPHHuSsaIKYa9ajrp
3ls7eYopAAksjEegTXsmvkd7AbEo6eDacvQNOxBW75dmZQzE26OM4Qpt1iPiuHh0fwbb
9b/K8kr3gLLz/Fqyus2GPxZE0O8yDuzIj6CW3TkJcKcF2gFBgd/ChJM8gXam8Ciat2VQ
CmLA==
X-Gm-Message-State: AOJu0YxDY0yoTbWSGCdROkumxn5zFDYvckMF6wXqnQqhTOkLrLsGi1j5
WxXkQsVhW0GyQ5pQdWkRFmNQ/0RXSf5/n6JaCG5imeGkKk/7G/2RuMcut1A8T3OS7a5i+vJ6nWc
oNupEVoJR6SjaaOsMMblBaMOgSoo7hWMolvs=
X-Gm-Gg: ASbGnctI8So1ttV6at75vf0b9JmDIhkhH0R9tqUjIj6hdID2Ea70Rtv3EeTZJuFSMdW
DkmnVeuSFS3eWNt8nGXnAcHK2XGwyJp0WIhJx5t34d18kEW+wNz5SB98ImM/kPX+xGEM9zUE3x0
IBk90l4RPVGOuEOpWAWjWbdJjHlGZgOkNiHuGFdcUSNJ+Rvp1nD+x3nzkme+g=
X-Google-Smtp-Source: AGHT+IEGRHvv5PJTaQSvPbvj2tFhmdTMvDjlUqkFzh9DaRzx9dmeOm4AcOENr7bH3L8/YCOsLy4pJC449IDDUv4iJro=
X-Received: by 2002:a17:90b:4c44:b0:2ff:4e8f:b055 with SMTP id
98e67ed59e1d1-2ff7cf14526mr8095068a91.35.1741384752194; Fri, 07 Mar 2025
13:59:12 -0800 (PST)
MIME-Version: 1.0
From: Hrishikesh S <hrish2006@HIDDEN>
Date: Fri, 7 Mar 2025 13:58:35 -0800
X-Gm-Features: AQ5f1JpxycqemB5P1qRwF4xZgi57SNOZJM8T81lu7pqszZZDDQ8q3LoJjs29ILw
Message-ID: <CACfJ7N5h=pSOuuUVqx9ue96K1c-89Xz7ZeTmCUzmRBSREf14-w@HIDDEN>
Subject: M-b not navigating to the previous word in the prompt string inside
Eshell on emacs 30.1
To: bug-gnu-emacs@HIDDEN
Content-Type: multipart/alternative; boundary="000000000000926cc1062fc7bba8"
Received-SPF: pass client-ip=2607:f8b0:4864:20::62a;
envelope-from=hrish2006@HIDDEN; helo=mail-pl1-x62a.google.com
X-Spam_score_int: -17
X-Spam_score: -1.8
X-Spam_bar: -
X-Spam_report: (-1.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1,
FREEMAIL_ENVFROM_END_DIGIT=0.25, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001,
RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001,
SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 1.2 (+)
X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org",
has NOT identified this incoming email as spam. The original
message has been attached to this so you can view it or label
similar future email. If you have any questions, see
the administrator of that system for details.
Content preview: In GNU Emacs 30.1, System Description: macOS 15.2 which I
installed by simply running "brew install emacs" on my work machine, when
I'm inside the eshell buffer, typing `M-b` does not take me back by a word
like how it used to be.
Content analysis details: (1.2 points, 10.0 required)
pts rule name description
---- ---------------------- --------------------------------------------------
0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail
provider (hrish2006[at]gmail.com)
1.0 SPF_SOFTFAIL SPF: sender does not match SPF record (softfail)
0.2 FREEMAIL_ENVFROM_END_DIGIT Envelope-from freemail username ends
in digit (hrish2006[at]gmail.com)
-0.0 SPF_HELO_PASS SPF: HELO matches SPF record
-0.0 RCVD_IN_DNSWL_NONE RBL: Sender listed at https://www.dnswl.org/,
no trust [2001:470:142:0:0:0:0:17 listed in] [list.dnswl.org]
0.0 HTML_MESSAGE BODY: HTML included in message
X-Debbugs-Envelope-To: submit
X-Mailman-Approved-At: Sat, 08 Mar 2025 01:53:19 -0500
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: 0.2 (/)
--000000000000926cc1062fc7bba8
Content-Type: text/plain; charset="UTF-8"
In GNU Emacs 30.1, System Description: macOS 15.2
which I installed by simply running "brew install emacs" on my work machine,
when I'm inside the eshell buffer, typing `M-b` does not take me back by a
word like how it used to be.
Apologies if the bug doesn't have enough information, but I was able to
verify this behavior on a fresh, clean install, without any of my
configuration or installed packages by running
"emacs -Q" and observing the same behavior.
I searched through existing bug reports and this seems like a new issue.
My relevant emacs config:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; eshell
;;
(require 'em-smart)
(setq eshell-history-size 10000)
(setq eshell-prompt-regexp "^[^#$]*[#$] ")
(defun curr-dir-git-branch-string (pwd)
"Returns current git branch as a string, or the empty string if
PWD is not in a git repo (or the git command is not found)."
(interactive)
(when (and (eshell-search-path "git")
(locate-dominating-file pwd ".git"))
(let ((git-output (shell-command-to-string (concat "cd " pwd " && git
branch | grep '\\*' | sed -e 's/^\\* //'"))))
(propertize (concat " ["
(if (> (length git-output) 0)
(substring git-output 0 -1)
"(no branch)")
"]") 'face `(:foreground "green"))
)))
(setq eshell-prompt-function
(lambda ()
(concat
(propertize ((lambda (p-lst)
(if (> (length p-lst) 3)
(concat
(mapconcat (lambda (elm) (if (zerop (length elm)) ""
(substring elm 0 1)))
(butlast p-lst 3)
"/")
"/"
(mapconcat (lambda (elm) elm)
(last p-lst 3)
"/"))
(mapconcat (lambda (elm) elm)
p-lst
"/")))
(split-string (pwd-repl-home (eshell/pwd)) "/")) 'face
`(:foreground "yellow"))
(or (curr-dir-git-branch-string (eshell/pwd)))
(propertize " # " 'face 'default))))
(setq eshell-highlight-prompt nil)
Thank you for all the work on emacs!
Regards,
Hrishi
--000000000000926cc1062fc7bba8
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
<div dir=3D"ltr"><div class=3D"gmail_default" style=3D"font-family:arial,sa=
ns-serif;font-size:small">In GNU Emacs 30.1, System Description: =C2=A0macO=
S 15.2<br><br></div><div class=3D"gmail_default" style=3D"font-family:arial=
,sans-serif;font-size:small">which I installed by simply running "brew=
install emacs" on my work machine,</div><div class=3D"gmail_default" =
style=3D"font-family:arial,sans-serif;font-size:small">when I'm inside =
the eshell buffer, typing `M-b` does not take me back by a word like how it=
used to be.</div><div class=3D"gmail_default" style=3D"font-family:arial,s=
ans-serif;font-size:small"><br></div><div class=3D"gmail_default" style=3D"=
font-family:arial,sans-serif;font-size:small">Apologies if the bug doesn=
9;t have enough information, but I was able to verify this behavior on a fr=
esh, clean install, without any of my configuration or installed packages b=
y running <br></div><div class=3D"gmail_default" style=3D"font-family:arial=
,sans-serif;font-size:small"><br></div><div class=3D"gmail_default" style=
=3D"font-family:arial,sans-serif;font-size:small">"emacs -Q" and =
observing the same behavior.</div><div class=3D"gmail_default" style=3D"fon=
t-family:arial,sans-serif;font-size:small"><br></div><div class=3D"gmail_de=
fault" style=3D"font-family:arial,sans-serif;font-size:small">I searched th=
rough existing bug reports and this seems like a new issue.</div><div class=
=3D"gmail_default" style=3D"font-family:arial,sans-serif;font-size:small"><=
br></div><div class=3D"gmail_default" style=3D"font-family:arial,sans-serif=
;font-size:small">My relevant emacs config:</div><div class=3D"gmail_defaul=
t" style=3D"font-family:arial,sans-serif;font-size:small"><br></div><div cl=
ass=3D"gmail_default" style=3D"font-family:arial,sans-serif;font-size:small=
">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br>;; es=
hell<br>;;<br>(require 'em-smart)<br>(setq eshell-history-size 10000)<b=
r>(setq eshell-prompt-regexp "^[^#$]*[#$] ")</div><div class=3D"g=
mail_default" style=3D"font-family:arial,sans-serif;font-size:small"><br></=
div><div class=3D"gmail_default" style=3D"font-family:arial,sans-serif;font=
-size:small"><br></div><div class=3D"gmail_default" style=3D"font-family:ar=
ial,sans-serif;font-size:small">(defun curr-dir-git-branch-string (pwd)<br>=
=C2=A0 "Returns current git branch as a string, or the empty string if=
<br>PWD is not in a git repo (or the git command is not found)."<br>=
=C2=A0 (interactive)<br>=C2=A0 (when (and (eshell-search-path "git&quo=
t;)<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(locate-dominating-f=
ile pwd ".git"))<br>=C2=A0 =C2=A0 (let ((git-output (shell-comman=
d-to-string (concat "cd " pwd " && git branch | grep=
'\\*' | sed -e 's/^\\* //'"))))<br>=C2=A0 =C2=A0 =C2=
=A0 (propertize (concat " ["<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 (if (> (length git-output) 0)<br>=C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (substring git-output 0 -1)<br>=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 "(no branch)&q=
uot;)<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 "]") &#=
39;face `(:foreground "green"))<br>=C2=A0 =C2=A0 =C2=A0 )))<br><b=
r>(setq eshell-prompt-function<br>=C2=A0 =C2=A0 =C2=A0 (lambda ()<br>=C2=A0=
=C2=A0 =C2=A0 =C2=A0 (concat<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(propert=
ize ((lambda (p-lst)<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (if (>=
(length p-lst) 3)<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 (concat<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0(mapconcat (lambda (elm) (if (zerop (length elm)) ""<br>=C2=A0=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (=
substring elm 0 1)))<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (butlast p-lst 3)<br>=C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 "/")<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0"/"<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(mapconcat (lambda (elm) elm)<br>=C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 (last p-lst 3)<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 "/"))<br>=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (mapconcat (lambda (elm) e=
lm)<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0p-lst<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0"/")))<br>=C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (split-string (pwd-repl-home (eshell/pwd)) &quo=
t;/")) 'face `(:foreground "yellow"))<br>=C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0(or (curr-dir-git-branch-string (eshell/pwd)))<br>=C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(propertize " # " 'face 'd=
efault))))<br><br>(setq eshell-highlight-prompt nil)</div><div class=3D"gma=
il_default" style=3D"font-family:arial,sans-serif;font-size:small"><br></di=
v><div class=3D"gmail_default" style=3D"font-family:arial,sans-serif;font-s=
ize:small"><br></div><div class=3D"gmail_default" style=3D"font-family:aria=
l,sans-serif;font-size:small">Thank you for all the work on emacs!</div><di=
v class=3D"gmail_default" style=3D"font-family:arial,sans-serif;font-size:s=
mall"><br></div><div class=3D"gmail_default" style=3D"font-family:arial,san=
s-serif;font-size:small"><br></div><div class=3D"gmail_default" style=3D"fo=
nt-family:arial,sans-serif;font-size:small">Regards,</div><div class=3D"gma=
il_default" style=3D"font-family:arial,sans-serif;font-size:small">Hrishi</=
div><div class=3D"gmail_default" style=3D"font-family:arial,sans-serif;font=
-size:small"><br></div><div class=3D"gmail_default" style=3D"font-family:ar=
ial,sans-serif;font-size:small"><br></div></div>
--000000000000926cc1062fc7bba8--
Hrishikesh S <hrish2006@HIDDEN>:bug-gnu-emacs@HIDDEN.
Full text available.bug-gnu-emacs@HIDDEN:bug#76853; Package emacs.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.