338 |
"Go back one buffer." |
"Go back one buffer." |
339 |
(interactive) |
(interactive) |
340 |
(switch-to-buffer (car (last (buffer-list))))) |
(switch-to-buffer (car (last (buffer-list))))) |
341 |
|
|
342 |
(defun crisp-meta-x-wrapper () |
(defun crisp-meta-x-wrapper () |
343 |
"Wrapper function to conditionally override the normal M-x bindings. |
"Wrapper function to conditionally override the normal M-x bindings. |
344 |
When `crisp-override-meta-x' is non-nil, M-x will exit Emacs (the |
When `crisp-override-meta-x' is non-nil, M-x will exit Emacs (the |
385 |
(setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map) |
(setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map) |
386 |
minor-mode-map-alist)))) |
minor-mode-map-alist)))) |
387 |
|
|
388 |
|
;; Interaction with other packages. |
389 |
|
(eval-after-load 'cua |
390 |
|
'(progn |
391 |
|
(add-to-list 'cua--standard-movement-commands 'crisp-home) |
392 |
|
(add-to-list 'cua--standard-movement-commands 'crisp-end))) |
393 |
|
|
394 |
(run-hooks 'crisp-load-hook) |
(run-hooks 'crisp-load-hook) |
395 |
(provide 'crisp) |
(provide 'crisp) |
396 |
|
|