From: Heikki Junes <heikki.junes@hut.fi>
Date: Fri, 22 Nov 2002 01:45:19 +0000 (+0000)
Subject: Lilypond-mode.el (LilyPond-words-filename): find lilypond.words from load-path.
X-Git-Tag: release/1.7.9~33
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=837aa14695cf84b58b60e7a25c63056406f99b42;p=lilypond.git

Lilypond-mode.el (LilyPond-words-filename): find lilypond.words from load-path.
---

diff --git a/ChangeLog b/ChangeLog
index dbd238a0f3..ff63924c90 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-22  Heikki Junes <hjunes@cc.hut.fi>
+
+	* lilypond-mode.el (LilyPond-words-filename): find lilypond.words
+	from load-path.
+	
 2002-11-21  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* lily/parser.yy (tempo_event): use tempo-unit for \tempo
diff --git a/lilypond-mode.el b/lilypond-mode.el
index 0240d93553..22165e0c45 100644
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -48,6 +48,17 @@
   :type 'string
   :group 'LilyPond)
 
+(defun LilyPond-words-filename ()
+  "The file containing LilyPond \keywords \Identifiers and ReservedWords.
+Finds file lilypond-words from load-path."
+  (let ((fn nil)
+	(lp load-path)
+	(words-file "lilypond.words"))
+    (while (and (> (length lp) 0) (not fn))
+      (setq fn (concat (car lp) "/" words-file))
+      (if (not (file-readable-p fn)) 
+	  (progn (setq fn nil) (setq lp (cdr lp)))))
+    fn))
 
 (defun LilyPond-check-files (derived originals extensions)
   "Check that DERIVED is newer than any of the ORIGINALS.
@@ -523,6 +534,7 @@ command."
   (define-key LilyPond-mode-map ")" 'LilyPond-electric-close-paren)
   (define-key LilyPond-mode-map ">" 'LilyPond-electric-close-paren)
   (define-key LilyPond-mode-map "}" 'LilyPond-electric-close-paren)
+  (define-key LilyPond-mode-map "\C-x\C-t" 'LilyPond-autocompletion)
   )
 
 ;;; Menu Support
@@ -624,6 +636,31 @@ command."
 	     (message "Remember to add all other details as well.") (sit-for 5 0 1)))
     )))
 
+(defun LilyPond-autocompletion ()
+  "Show completions in mini-buffer for the given word."
+  (interactive)
+  (setq fn (LilyPond-words-filename))
+  (setq b (find-file-noselect fn))
+  (setq m (set-marker (make-marker) 1 (get-buffer b)))
+  (defun add-dictionary-word (x)
+    (nconc '(("" . 1)) x))
+  (setq i 1)
+  (while (> (buffer-size b) (marker-position m))
+    (setq i (+ i 1))
+    (setq copy (copy-alist (list (eval (symbol-name (read m))))))
+    (setcdr copy i)
+    (add-dictionary-word (list copy))
+    )
+  (setq ch (preceding-char))
+;  (if (or (and (>= ch 65) (<= ch 90)) 
+;	  (and (>= ch 97) (<= ch 122))) ; A-Z,a-z
+;      (message "yes") (message "no"))
+  (setq co (all-completions (char-to-string ch) (add-dictionary-word ())))
+  (while (> (length co) 0)
+    (message (car co)) 
+    (sit-for 0 500 1)
+    (setq co (cdr co))))
+
 (defun LilyPond-insert-string (pre)
   "Insert text to the buffer."
   (interactive)