diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2001-08-16 14:57:23 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2001-08-16 14:57:23 +0000 |
commit | aa667ea2b6e6d07a2a4dc728e98005202f1ccb43 (patch) | |
tree | c4b9805119ba052ed009148e7ad76331a33259c8 /generic | |
parent | c1e594fe80959eab7d8c9bd6dfa50a85f2961061 (diff) |
Function name fixes, use idiom property in span for popup menu name.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/pg-user.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/pg-user.el b/generic/pg-user.el index fbc8464f..e3317f9b 100644 --- a/generic/pg-user.el +++ b/generic/pg-user.el @@ -115,7 +115,7 @@ the proof script." (proof-maybe-save-point (let ((span (proof-last-goal-or-goalsave))) - (if (and span (not (eq (span-property span 'type) 'proof)) + (if (and span (not (eq (span-property span 'type) 'goalsave)) (< (span-end span) (proof-unprocessed-begin))) (progn (goto-char (span-start span)) @@ -690,10 +690,10 @@ last use time, to discourage saving these into the users database." ;; Span menus and keymaps (maybe belongs in pg-menu) ;; -(defvar span-context-menu-keymap +(defvar pg-span-context-menu-keymap (let ((map (make-sparse-keymap "Keymap for context-sensitive menus on spans"))) - (define-key map [button3] 'span-context-menu) + (define-key map [button3] 'pg-span-context-menu) map)) ;; FIXME: TODO here: @@ -702,22 +702,22 @@ last use time, to discourage saving these into the users database." ;; (pgidioms). ;; -(defun span-context-menu (event) +(defun pg-span-context-menu (event) (interactive "e") (select-window (event-window event)) (let* ((event-span (span-at (event-point event) 'type)) - (idiom (symbol-name (span-property event-span 'type))) + (idiom (symbol-name (span-property event-span 'idiom))) (portname (span-property event-span 'name)) (spano (span-object event-span)) (event-file (and (bufferp spano) (buffer-file-name spano)))) - (popup-menu (create-in-span-context-menu event-span + (popup-menu (pg-create-in-span-context-menu event-span idiom portname event-file)))) -(defun create-in-span-context-menu (span idiom name file) - `(,(concat (if idiom (upcase-initials idiom)) ":" name) +(defun pg-create-in-span-context-menu (span idiom name file) + `(,(concat (if idiom (upcase-initials idiom)) ": " name) ,(vector - "Make invisible" (list 'pg-make-element-invisible idiom name) idiom))) + "Show/hide" (list 'pg-toggle-element-visibility idiom name) idiom))) |