comparison lisp/button.el @ 60339:3cd3e3cf3529

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-145 (make-text-button): Default button type if not specified 2005-03-02 Miles Bader <[e-mail]> * lisp/button.el (make-text-button): If the user doesn't specify a type, use the default. Rewrite to use `add-text-properties' and plist functions.

60338:e040c58e568a

;;; button.el --- clickable buttons
;;
;; Copyright (C) 2001 Free Software Foundation, Inc.
;;
;; Author: Miles Bader <[e-mail]>
;; Keywords: extensions
;;
;; This file is part of GNU Emacs.

part of the text instead of being a property of the buffer.  Creating
large numbers of buttons can also be somewhat faster using
`make-text-button'.

Also see `insert-text-button'."
  (let (prop val)
    (while properties
      (setq prop (pop properties))
      (setq val (pop properties))
      ;; Note that all the following code is basically equivalent to
      ;; `button-put', but we can do it much more efficiently since we
      ;; already have BEG and END.
      (cond ((memq prop '(type :type))
	     ;; We translate a `type' property into a `category'
	     ;; property, since that's what's actually used by
	     ;; text-properties for inheritance.
	     (setq prop 'category)
	     (setq val (button-category-symbol val)))
	    ((eq prop 'category)
	     ;; Disallow setting the `category' property directly.
	     (error "Button `category' property may not be set directly")))
      ;; Add the property.
      (put-text-property beg end prop val)))
  ;; Return something that can be used to get at the button.
  beg)

;;;###autoload
(defun insert-text-button (label &rest properties)

60339:3cd3e3cf3529

;;; button.el --- clickable buttons
;;
;; Copyright (C) 2001, 2005 Free Software Foundation, Inc.
;;
;; Author: Miles Bader <[e-mail]>
;; Keywords: extensions
;;
;; This file is part of GNU Emacs.

part of the text instead of being a property of the buffer.  Creating
large numbers of buttons can also be somewhat faster using
`make-text-button'.

Also see `insert-text-button'."
  (let ((type-entry
	 (or (plist-member properties 'type)
	     (plist-member properties :type))))
    ;; Disallow setting the `category' property directly.
    (when (plist-get properties 'category)
      (error "Button `category' property may not be set directly"))
    (if (null type-entry)
	;; The user didn't specify a `type' property, use the default.
	(setq properties (cons 'category (cons 'default-button properties)))
      ;; The user did specify a `type' property.  Translate it into a
      ;; `category' property, which is what's actually used by
      ;; text-properties for inheritance.
      (setcar type-entry 'category)
      (setcar (cdr type-entry)
	      (button-category-symbol (car (cdr type-entry))))))
  ;; Now add all the text properties at once
  (add-text-properties beg end properties)
  ;; Return something that can be used to get at the button.
  beg)

;;;###autoload
(defun insert-text-button (label &rest properties)