Mercurial > hg > xemacs-beta

comparison lisp/energize/energize-mode.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
127 ;;; This prompts in the minibuffer, ##### with no completion. 127 ;;; This prompts in the minibuffer, ##### with no completion.
128 (defun energize-edit-definition (def) 128 (defun energize-edit-definition (def)
129 "If connected to Energize, the Energize database is used. 129 "If connected to Energize, the Energize database is used.
130 Otherwise, `find-tag' is invoked. 130 Otherwise, `find-tag' is invoked.
131 The X selection is used as a default, if it exists and contains no 131 The X selection is used as a default, if it exists and contains no
132 newlines. Otherwise, the preceeding token is used as a default. 132 newlines. Otherwise, the preceding token is used as a default.
133 If invoked from a mouse command, prompting happens with a dialog box; 133 If invoked from a mouse command, prompting happens with a dialog box;
134 otherwise, the minibuffer is used." 134 otherwise, the minibuffer is used."
135 (interactive 135 (interactive
136 (if (and (connected-to-energize-p) 136 (if (and (connected-to-energize-p)
137 (or (menu-event-p last-command-event) 137 (or (menu-event-p last-command-event)
635 (if e 635 (if e
636 (goto-char (extent-start-position e)) 636 (goto-char (extent-start-position e))
637 (error "no next project"))))) 637 (error "no next project")))))
638 638
639 (defun energize-top-prev-project () 639 (defun energize-top-prev-project ()
640 "Position the cursor at the beginning of the preceeding project." 640 "Position the cursor at the beginning of the preceding project."
641 (interactive) 641 (interactive)
642 (let ((p (point))) 642 (let ((p (point)))
643 (let ((e (energize-next-extent-for "editproject" t t))) 643 (let ((e (energize-next-extent-for "editproject" t t)))
644 (if (and e (= p (extent-start-position e))) 644 (if (and e (= p (extent-start-position e)))
645 (save-excursion 645 (save-excursion