Mercurial > emacs

comparison lisp/wid-edit.el @ 90976:cc8cd7525cf0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(widget-documentation-string-value-create): Insert spaces for indentation.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 05 Jul 2007 22:12:47 +0000
parents 3619e7770f2e
children f55f9811f5d7
comparison
equal deleted inserted replaced
90975:aa60bfc993a6 90976:cc8cd7525cf0
2908 (start (point))) 2908 (start (point)))
2909 (if (string-match "\n" doc) 2909 (if (string-match "\n" doc)
2910 (let ((before (substring doc 0 (match-beginning 0))) 2910 (let ((before (substring doc 0 (match-beginning 0)))
2911 (after (substring doc (match-beginning 0))) 2911 (after (substring doc (match-beginning 0)))
2912 button) 2912 button)
2913 (when (and indent (not (zerop indent)))
2914 (insert-char ?\s indent))
2913 (insert before ?\s) 2915 (insert before ?\s)
2914 (widget-documentation-link-add widget start (point)) 2916 (widget-documentation-link-add widget start (point))
2915 (setq button 2917 (setq button
2916 (widget-create-child-and-convert 2918 (widget-create-child-and-convert
2917 widget (widget-get widget :visibility-widget) 2919 widget (widget-get widget :visibility-widget)
2926 (when (and indent (not (zerop indent))) 2928 (when (and indent (not (zerop indent)))
2927 (insert-char ?\s indent)) 2929 (insert-char ?\s indent))
2928 (insert after) 2930 (insert after)
2929 (widget-documentation-link-add widget start (point))) 2931 (widget-documentation-link-add widget start (point)))
2930 (widget-put widget :buttons (list button))) 2932 (widget-put widget :buttons (list button)))
2933 (when (and indent (not (zerop indent)))
2934 (insert-char ?\s indent))
2931 (insert doc) 2935 (insert doc)
2932 (widget-documentation-link-add widget start (point)))) 2936 (widget-documentation-link-add widget start (point))))
2933 (insert ?\n)) 2937 (insert ?\n))
2934 2938
2935 (defun widget-documentation-string-action (widget &rest ignore) 2939 (defun widget-documentation-string-action (widget &rest ignore)