From 63401d1ae7606ca90401cfd02b1e2e462a303864 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 9 Apr 2019 14:05:09 -0700 Subject: Fix typo, make annotations disappear when empties --- oni-csharp.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/oni-csharp.el b/oni-csharp.el index 38ee6ac..de5db3a 100644 --- a/oni-csharp.el +++ b/oni-csharp.el @@ -25,12 +25,12 @@ ;;; Code: -(defvar oni-chsarp--projects (make-hash-table :test 'equal)) +(defvar oni-csharp--projects (make-hash-table :test 'equal)) -(defun oni-chsarp-collect-project-names () +(defun oni-csharp-collect-project-names () "Go through the current buffer and collect all the project names." (interactive) - (clrhash oni-chsarp--projects) + (clrhash oni-csharp--projects) (save-excursion (goto-char (point-min)) (while (re-search-forward @@ -49,7 +49,7 @@ :noerror) (puthash (match-string-no-properties 3) (match-string-no-properties 2) - oni-chsarp--projects)))) + oni-csharp--projects)))) (defun oni-csharp-display-project-names () "Display the project names in the current buffer." @@ -70,9 +70,10 @@ :noerror) (let ((current-overlay (make-overlay (line-beginning-position) (line-end-position)))) (overlay-put current-overlay 'after-string - (propertize (format " => %s" (gethash (match-string 1) oni-chsarp--projects)) + (propertize (format " => %s" (gethash (match-string 1) oni-csharp--projects)) 'face '(:foreground "#808080"))) - (overlay-put current-overlay 'oni-csharp--overlayp t))))) + (overlay-put current-overlay 'oni-csharp--overlayp t) + (overlay-put current-overlay 'evaporate t))))) (provide 'oni-csharp) ;;; oni-csharp.el ends here -- cgit v1.2.3-54-g00ecf