# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1286072560 25200
# Node ID ad5ef46bca3e231c5bb31f6b7b611f98f6c02687
# Parent  420fcace343a19592e99afe2e27baf18888e791e
* lisp/textmodes/artist.el (artist-replace-char): Drop Emacs 20 code.

diff -r 420fcace343a -r ad5ef46bca3e lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 02 19:17:47 2010 -0700
+++ b/lisp/ChangeLog	Sat Oct 02 19:22:40 2010 -0700
@@ -1,5 +1,7 @@
 2010-10-03  Glenn Morris  <rgm@gnu.org>
 
+	* textmodes/artist.el (artist-replace-char): Drop Emacs 20 code.
+
 	* printing.el: Drop Emacs 20 code.
 
 	* calendar/appt.el (appt-delete): Don't autoload it (you can't use it
diff -r 420fcace343a -r ad5ef46bca3e lisp/textmodes/artist.el
--- a/lisp/textmodes/artist.el	Sat Oct 02 19:17:47 2010 -0700
+++ b/lisp/textmodes/artist.el	Sat Oct 02 19:22:40 2010 -0700
@@ -1,7 +1,7 @@
 ;;; artist.el --- draw ascii graphics with your mouse
 
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009, 2010  Free Software Foundation, Inc.
 
 ;; Author:       Tomas Abrahamsson <tab@lysator.liu.se>
 ;; Maintainer:   Tomas Abrahamsson <tab@lysator.liu.se>
@@ -1957,24 +1957,11 @@
 
 (defun artist-replace-char (new-char)
   "Replace the character at point with NEW-CHAR."
-  ;; Check that the variable exists first. The doc says it was added in 19.23.
-  (if (and (and (boundp 'emacs-major-version) (= emacs-major-version 20))
-	   (and (boundp 'emacs-minor-version) (<= emacs-minor-version 3)))
-      ;; This is a bug workaround for Emacs 20, versions up to 20.3:
-      ;; The self-insert-command doesn't care about the overwrite-mode,
-      ;; so the insertion is done in the same way as in picture mode.
-      ;; This seems to be a little bit slower.
-      (progn
-	(artist-move-to-xy (1+ (artist-current-column))
-			   (artist-current-line))
-	(delete-char -1)
-	(insert (artist-get-replacement-char new-char)))
-    ;; In emacs-19, the self-insert-command works better and faster
-    (let ((overwrite-mode 'overwrite-mode-textual)
-	  (fill-column 32765)		; Large :-)
-	  (blink-matching-paren nil))
-      (setq last-command-event (artist-get-replacement-char new-char))
-      (self-insert-command 1))))
+  (let ((overwrite-mode 'overwrite-mode-textual)
+	(fill-column 32765)		; Large :-)
+	(blink-matching-paren nil))
+    (setq last-command-event (artist-get-replacement-char new-char))
+    (self-insert-command 1)))
 
 (defun artist-replace-chars (new-char count)
   "Replace characters at point with NEW-CHAR.  COUNT chars are replaced."