/[emacs]/emacs/lisp/emulation/crisp.el
ViewVC logotype

Diff of /emacs/lisp/emulation/crisp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by fx, Sun May 21 17:33:05 2000 UTC revision 1.16.18.1 by miles, Fri Apr 4 06:20:17 2003 UTC
# Line 338  consecutive use moves point to the end o Line 338  consecutive use moves point to the end o
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
# Line 385  With ARG, turn CRiSP mode on if ARG is p Line 385  With ARG, turn CRiSP mode on if ARG is p
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    

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.16.18.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26