676 |
;; Choose a symbol if called from keyboard, otherwise use the one clicked on. |
;; Choose a symbol if called from keyboard, otherwise use the one clicked on. |
677 |
(if cpp-button-event |
(if cpp-button-event |
678 |
cpp-callback-data |
cpp-callback-data |
679 |
(completing-read "Symbol: " (mapcar 'list cpp-edit-symbols) nil t))) |
(completing-read "Symbol: " cpp-edit-symbols nil t))) |
680 |
|
|
681 |
(defun cpp-choose-branch () |
(defun cpp-choose-branch () |
682 |
;; Choose a branch, either nil, t, or both. |
;; Choose a branch, either nil, t, or both. |