Commits

Anonymous committed 2fee5ff

Elimination of obsolete symbol names

  • Participants
  • Parent commits 4f3f616

Comments (0)

Files changed (4)

+1998-07-12  SL Baur  <steve@altair.xemacs.org>
+
+	* facemenu.el (facemenu-update-facemenu-menu): Kill
+	list-faces-display.
+
+	* annotations.el (set-annotation-glyph): Kill extent-layout.
+
 1998-07-02  Hrvoje Niksic  <hniksic@srce.hr>
 
 	* compile.el (compile-command): Docstring fix: use `add-hook' to
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.21
+VERSION = 1.22
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = xemacs-base

File annotations.el

       (error "%s is not an annotation" annotation)
     (progn
       (if (not layout)
-	  (setq layout (extent-layout annotation))) ; #### `extent-layout' is obsolete
+	  (setq layout (or (extent-begin-glyph-layout annotation)
+			   (extent-end-glyph-layout annotation))))
       (if (or (eq side 'right)
 	      (and (not (eq side 'left))
 		   (eq (annotation-side annotation) 'right)))
 ;; There is at present no way to display what the faces look like in
 ;; the menu itself.
 ;;
-;; `list-faces-display' shows the faces in a different order than
+;; `edit-faces' shows the faces in a different order than
 ;; this menu, which could be confusing.  I do /not/ sort the list
 ;; alphabetically, because I like the default order: it puts the most
 ;; basic, common fonts first.
 	 "---"
 	 ["Remove Properties" facemenu-remove-props t]
 	 ["List Properties" list-text-properties-at t]
-	 ["Display Faces" list-faces-display t]
+	 ["Display Faces" edit-faces t]
 	 ["Display Colors" list-colors-display t])))
 
 ;;;###autoload