Commit: a4b6186235eaf17834eec8fd6a866d81df501976 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Revision: a4b6186235eaf17834eec8fd6a866d81df501976 (tree)
• Time: 1999-08-03 00:53:31
• Author: john <john>
• Commiter: john

Log Message

(Fget_cursor): if a symbol, dereference it's cursor-shape property
_before_ scanning the list for an existing cursor

Change Summary

• modified: src/cursors.c

Incremental Difference

--- a/src/cursors.c
+++ b/src/cursors.c
@@ -35,14 +35,15 @@ get-cursor DATA
 {
     Lisp_Cursor *f;
 
+    if (rep_SYMBOLP(data))
+	data = Fget (data, Qcursor_shape);
+
     f = cursor_list;
     while (f != 0 && f->data != data)
 	f = f->next;
     if (f == 0)
     {
 	Cursor cursor = 0;
-	if (rep_SYMBOLP(data))
-	    data = Fget (data, Qcursor_shape);
 	if (rep_INTP(data))
 	    cursor = XCreateFontCursor (dpy, rep_INT(data));
 	else if (IMAGEP(data))