Mercurial > hg > xemacs-beta

comparison lisp/prim/simple.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents 9b50b4588a93
children 1856695b1fa9
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
66 (defgroup killing nil 66 (defgroup killing nil
67 "Killing and yanking commands" 67 "Killing and yanking commands"
68 :group 'editing) 68 :group 'editing)
69 69
70 (defgroup paren-matching nil 70 (defgroup paren-matching nil
71 "Matching and blinking of parens" 71 "Highlight (un)matching of parens and expressions."
72 :prefix "paren-"
72 :group 'matching) 73 :group 'matching)
74
75 (defgroup paren-blinking nil
76 "Blinking of matched parens."
77 :prefix "blink-"
78 :group 'paren-matching)
73 79
74 80
75 (defun newline (&optional arg) 81 (defun newline (&optional arg)
76 "Insert a newline, and move to left margin of the new line if it's blank. 82 "Insert a newline, and move to left margin of the new line if it's blank.
77 The newline is marked with the text-property `hard'. 83 The newline is marked with the text-property `hard'.
2689 2695
2690 2696
2691 (defcustom blink-matching-paren t 2697 (defcustom blink-matching-paren t
2692 "*Non-nil means show matching open-paren when close-paren is inserted." 2698 "*Non-nil means show matching open-paren when close-paren is inserted."
2693 :type 'boolean 2699 :type 'boolean
2694 :group 'paren-matching) 2700 :group 'paren-blinking)
2695 2701
2696 (defcustom blink-matching-paren-on-screen t 2702 (defcustom blink-matching-paren-on-screen t
2697 "*Non-nil means show matching open-paren when it is on screen. 2703 "*Non-nil means show matching open-paren when it is on screen.
2698 nil means don't show it (but the open-paren can still be shown 2704 nil means don't show it (but the open-paren can still be shown
2699 when it is off screen." 2705 when it is off screen."
2700 :type 'boolean 2706 :type 'boolean
2701 :group 'paren-matching) 2707 :group 'paren-blinking)
2702 2708
2703 (defcustom blink-matching-paren-distance 12000 2709 (defcustom blink-matching-paren-distance 12000
2704 "*If non-nil, is maximum distance to search for matching open-paren." 2710 "*If non-nil, is maximum distance to search for matching open-paren."
2705 :type '(choice integer (const nil)) 2711 :type '(choice integer (const nil))
2706 :group 'paren-matching) 2712 :group 'paren-blinking)
2707 2713
2708 (defcustom blink-matching-delay 1 2714 (defcustom blink-matching-delay 1
2709 "*The number of seconds that `blink-matching-open' will delay at a match." 2715 "*The number of seconds that `blink-matching-open' will delay at a match."
2710 :type 'number 2716 :type 'number
2711 :group 'paren-matching) 2717 :group 'paren-blinking)
2712 2718
2713 (defcustom blink-matching-paren-dont-ignore-comments nil 2719 (defcustom blink-matching-paren-dont-ignore-comments nil
2714 "*Non-nil means `blink-matching-paren' should not ignore comments." 2720 "*Non-nil means `blink-matching-paren' should not ignore comments."
2715 :type 'boolean 2721 :type 'boolean
2716 :group 'paren-matching) 2722 :group 'paren-blinking)
2717 2723
2718 (defun blink-matching-open () 2724 (defun blink-matching-open ()
2719 "Move cursor momentarily to the beginning of the sexp before point." 2725 "Move cursor momentarily to the beginning of the sexp before point."
2720 (interactive "_") ; XEmacs 2726 (interactive "_") ; XEmacs
2721 (and (> (point) (1+ (point-min))) 2727 (and (> (point) (1+ (point-min)))