From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 20 Apr 1995 21:27:14 +0000 (+0000)
Subject: (sendmail-pre-abbrev-expand-hook): When setting the
X-Git-Tag: emacs-19.34~4354
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1a3a8436fc8fd917bed7ea90e8a8f22330e8767;p=emacs.git

(sendmail-pre-abbrev-expand-hook): When setting the
dummy value for abbrev-start-location, use (point-max) rather than
(point), so we won't delete a "-" that happens to be at point.
---

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 27d54fed305..3245fc9e958 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -458,7 +458,7 @@ characters which may be a part of the name of a mail alias.")
 		   (expand-abbrev)
 		   ;; Now set it back to what it was before.
 		   (set-syntax-table mail-mode-header-syntax-table)))
-	     (setq abbrev-start-location (point) ; This is the trick.
+	     (setq abbrev-start-location (point-max) ; This is the trick.
 		   abbrev-start-location-buffer (current-buffer)))
 
 	 ;; We're not in a mail header where mail aliases should