(back-to-indentation): Call backward-prefix-chars.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 4726dffecd7..ff4b83a77a8 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -369,7 +369,9 @@ useful for editing binary files."
   (interactive)
   (beginning-of-line 1)
   (let ((limit (line-end-position)))
-    (skip-syntax-forward " " limit)))
+    (skip-syntax-forward " " limit))
+  ;; Move back over chars that have whitespace syntax but have the p flag.
+  (backward-prefix-chars))
 
 (defun fixup-whitespace ()
   "Fixup white space between objects around point.