Czapki Emacsa blokują mniejszy tryb?

Question

Czy w Emacs jest polecenie włączenia czegoś, co można określić jako "caps lock minor mode"? Szukam czegoś takiego, jak M-x toggle-caps-mode, a następnie każda litera, którą wpisuję w buforze, jest wielką literą, dopóki nie powtórzę numeru M-x toggle-caps-mode.

Uwaga: NIE szukam wskazówek, jak zamienić czapki i kontrolę. W rzeczywistości jest tak, ponieważ już to zrobiłem. Generalnie jestem z tego całkiem zadowolony, ale od czasu do czasu redaguję kod, w którym jest mnóstwo stałych, które są we wszystkich wersjach, i to staje się naprężeniem przytrzymującym klawisz Shift. Jestem świadomy różnych funkcji konwersji upcase; Wolałbym nie wpisywać tego słowa, wybrać go, a następnie uruchomić upcase-region.

Jeśli to ma znaczenie, używam Aquamacs 2.2 w/Emacs 23.3.1.

Answer 1

Nie trzeba wpisywać słowo, a następnie wybierz go. Jeśli chcesz uzupełnić ostatnie słowo, naciśnij M-b M-u lub ESC b u. OK, musisz kilkakrotnie nacisnąć przycisk b, jeśli jest to word_with_underscores.

Jeśli naprawdę chcesz, aby czapki blokowały mniejszy tryb, spróbuj John Paul Wallington's lockcaps.el.

Answer 2

Można spróbować czegoś takiego:

(define-minor-mode caps-lock-mode 
    "caps-lock mode" 
    ;; The initial value. 
    nil 
    ;; The indicator for the mode line. 
    " CAPS-LOCK" 
    ;; The minor mode bindings. 
    '(("a" . (lambda() (interactive) (insert-char ?A 1))) 
    ("b" . (lambda() (interactive) (insert-char ?B 1))) 
    ;;etc 
    ("A" . (lambda() (interactive) (insert-char ?a 1)))  
    ("B" . (lambda() (interactive) (insert-char ?b 1)))  
    ;;etc 
    ))