comparison src/lread.c @ 26404:c3c9cc1c2379

Remove USE_TEXT_PROPERTIES.

26403:03830fdf5186

	  Lisp_Object tmp;
	  tmp = read_vector (readcharfun, 1);
	  return Fmake_byte_code (XVECTOR (tmp)->size,
				  XVECTOR (tmp)->contents);
	}
#ifdef USE_TEXT_PROPERTIES
      if (c == '(')
	{
	  Lisp_Object tmp;
	  struct gcpro gcpro1;
	  int ch;

	      Fset_text_properties (beg, end, plist, tmp);
	    }
	  UNGCPRO;
	  return tmp;
	}
#endif
      /* #@NUMBER is used to skip NUMBER following characters.
	 That's used in .elc files to skip over doc strings
	 and function definitions.  */
      if (c == '@')
	{

	SUBSTITUTE (Fcdr_safe (subtree),
		    Fsetcdr (subtree, true_value)); 
	return subtree;
      }

#ifdef USE_TEXT_PROPERTIES
    case Lisp_String:
      {
	/* Check for text properties in each interval.
	   substitute_in_interval contains part of the logic. */ 

	traverse_intervals (root_interval, 1, 0,
			    &substitute_in_interval, arg); 

	return subtree;
      }
#endif /* defined USE_TEXT_PROPERTIES */

      /* Other types don't recurse any further. */
    default:
      return subtree;
    }

26404:c3c9cc1c2379

	  Lisp_Object tmp;
	  tmp = read_vector (readcharfun, 1);
	  return Fmake_byte_code (XVECTOR (tmp)->size,
				  XVECTOR (tmp)->contents);
	}
      if (c == '(')
	{
	  Lisp_Object tmp;
	  struct gcpro gcpro1;
	  int ch;

	      Fset_text_properties (beg, end, plist, tmp);
	    }
	  UNGCPRO;
	  return tmp;
	}
      
      /* #@NUMBER is used to skip NUMBER following characters.
	 That's used in .elc files to skip over doc strings
	 and function definitions.  */
      if (c == '@')
	{

	SUBSTITUTE (Fcdr_safe (subtree),
		    Fsetcdr (subtree, true_value)); 
	return subtree;
      }

    case Lisp_String:
      {
	/* Check for text properties in each interval.
	   substitute_in_interval contains part of the logic. */ 

	traverse_intervals (root_interval, 1, 0,
			    &substitute_in_interval, arg); 

	return subtree;
      }

      /* Other types don't recurse any further. */
    default:
      return subtree;
    }