Mercurial > hg > xemacs-beta

comparison lisp/energize/energize-mode.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 360340f9fd5f
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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 preceding token is used as a default. 132 newlines. Otherwise, the preceeding 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 preceding project." 640 "Position the cursor at the beginning of the preceeding 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