[Emacs-diffs] trunk r117488: * lisp/simple.el (transpose-chars): Don't move point into read-only area.

[Juri Linkov]

------------------------------------------------------------
revno: 117488
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/17829
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Tue 2014-07-08 11:27:46 +0300
message:
  * lisp/simple.el (transpose-chars): Don't move point into read-only area.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-08 08:02:50 +0000
+++ b/lisp/ChangeLog    2014-07-08 08:27:46 +0000
@@ -1,5 +1,10 @@
 2014-07-08  Juri Linkov  <address@hidden>
 
+       * simple.el (transpose-chars): Don't move point into read-only area.
+       (Bug#17829)
+
+2014-07-08  Juri Linkov  <address@hidden>
+
        * window.el (with-displayed-buffer-window): New macro.
        (with-temp-buffer-window, with-current-buffer-window):
        Use `macroexp-let2' to evaluate and bind variables

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-07-01 18:13:28 +0000
+++ b/lisp/simple.el    2014-07-08 08:27:46 +0000
@@ -5934,7 +5934,9 @@
 and drag it forward past ARG other characters (backward if ARG negative).
 If no argument and at end of line, the previous two chars are exchanged."
   (interactive "*P")
-  (and (null arg) (eolp) (forward-char -1))
+  (when (and (null arg) (eolp) (not (bobp))
+            (not (get-text-property (1- (point)) 'read-only)))
+    (forward-char -1))
   (transpose-subr 'forward-char (prefix-numeric-value arg)))
 
 (defun transpose-words (arg)