Guest User

Untitled

a guest
Jan 19th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. ;;; ....
  2.  
  3. ;;;###autoload
  4. (define-minor-mode example-mode
  5. "Enables the example mode"
  6. (if example-mode
  7. (example-mode-enable)
  8. (example-mode-disable)))
  9.  
  10. (defun exmaple-mode-enable ()
  11. (cond ((not example-mode-config)
  12. (message "please define example-mode-config before using example-mode")
  13. ;;; seem to need to do something here to disable the mode
  14. ;;; otherwise the mode gets enabled, but does not work
  15. )
  16. (t ;;;; go ahead and set up .....
  17. )))
Add Comment
Please, Sign In to add comment