Mercurial > hg > xemacs-beta

comparison lisp/energize/energize-mode.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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