* textmodes/artist.el (artist-menu-map): Bind Rectangle menu item

  to draw rectangles, not squares.  (Regression introduced by
  2011-03-02T03:48:01Z!cyd@stupidchicken.com)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6f5a5fd525df1567e67b86267d42fdee8119116..731a443390c28ca73a9eda6eb1f89da8861569f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-03-20  Tassilo Horn  <tassilo@member.fsf.org>
+
+       * textmodes/artist.el (artist-menu-map): Bind Rectangle menu item
+       to draw rectangles, not squares.  (Regression introduced by revno
+       2011-03-02T03:48:01Z!cyd@stupidchicken.com)
+
 2012-03-18  Chong Yidong  <cyd@gnu.org>
 
        * faces.el (face-spec-reset-face): Don't call display-graphic-p if

diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index fdfb1a51ba03852ca74553b9b2b8ca820ecf16ec..72ae44bb60d889f799a035c8e238cfdb5033db73 100644 (file)
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -535,7 +535,8 @@ This variable is initialized by the `artist-make-prev-next-op-alist' function.")
                  ("Text" artist-select-op-text-overwrite text-ovwrt)
                  ("Ellipse" artist-select-op-circle circle)
                  ("Poly-line" artist-select-op-straight-poly-line spolyline)
-                 ("Rectangle" artist-select-op-square square)
+                 ("Square" artist-select-op-square square)
+                 ("Rectangle" artist-select-op-rectangle rectangle)
                  ("Line" artist-select-op-straight-line s-line)
                  ("Pen" artist-select-op-pen-line pen-line)))
       (define-key map (vector (nth 2 op))