diff options
| author | Richard M. Stallman | 2001-11-21 10:42:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-21 10:42:11 +0000 |
| commit | 2b452d74cf0ddeb7e3afe428c8d46ca5fb573145 (patch) | |
| tree | f79c51b574411be1324450c35aa316baacab9684 | |
| parent | a2899d6cc6839b9c7d2674cc3d6f6bff6a7289c0 (diff) | |
| download | emacs-2b452d74cf0ddeb7e3afe428c8d46ca5fb573145.tar.gz emacs-2b452d74cf0ddeb7e3afe428c8d46ca5fb573145.zip | |
Don't alter minor-map-alist.
| -rw-r--r-- | lisp/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/international/encoded-kb.el | 12 |
2 files changed, 16 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da78448299e..655e2d4713d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2001-11-21 Richard M. Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * international/encoded-kb.el: Don't alter minor-map-alist. | ||
| 4 | |||
| 1 | 2001-11-20 Kai Grossjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> | 5 | 2001-11-20 Kai Grossjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> |
| 2 | 6 | ||
| 3 | * files.el (auto-save-file-name-transforms): Put remote files in | 7 | * files.el (auto-save-file-name-transforms): Put remote files in |
| @@ -37,6 +41,12 @@ | |||
| 37 | 41 | ||
| 38 | * replace.el (occur-mode): Undo 2001-5-20 change. | 42 | * replace.el (occur-mode): Undo 2001-5-20 change. |
| 39 | 43 | ||
| 44 | 2001-11-20 Richard M. Stallman <rms@gnu.org> | ||
| 45 | |||
| 46 | * ruler-mode.el: Add pagination. | ||
| 47 | (ruler-mode-toggle-show-tab-stops): No need to | ||
| 48 | test `ruler-mode' variable. | ||
| 49 | |||
| 40 | 2001-11-20 Eli Zaretskii <eliz@is.elta.co.il> | 50 | 2001-11-20 Eli Zaretskii <eliz@is.elta.co.il> |
| 41 | 51 | ||
| 42 | * play/landmark.el: Mark lm-mode as special. | 52 | * play/landmark.el: Mark lm-mode as special. |
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index fa3a6407c6b..754ba2b77c0 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el | |||
| @@ -28,12 +28,12 @@ | |||
| 28 | "Non-nil if in Encoded-kbd minor mode.") | 28 | "Non-nil if in Encoded-kbd minor mode.") |
| 29 | (put 'encoded-kbd-mode 'permanent-local t) | 29 | (put 'encoded-kbd-mode 'permanent-local t) |
| 30 | 30 | ||
| 31 | (let ((slot (assq 'encoded-kbd-mode minor-mode-alist)) | 31 | ;;; (let ((slot (assq 'encoded-kbd-mode minor-mode-alist)) |
| 32 | (name " Encoded-kbd")) | 32 | ;;; (name " Encoded-kbd")) |
| 33 | (if slot | 33 | ;;; (if slot |
| 34 | (setcar (cdr slot) name) | 34 | ;;; (setcar (cdr slot) name) |
| 35 | (setq minor-mode-alist | 35 | ;;; (setq minor-mode-alist |
| 36 | (cons '(encoded-kbd-mode " Encoded-kbd") minor-mode-alist)))) | 36 | ;;; (cons '(encoded-kbd-mode " Encoded-kbd") minor-mode-alist)))) |
| 37 | 37 | ||
| 38 | (defconst encoded-kbd-mode-map (make-sparse-keymap) | 38 | (defconst encoded-kbd-mode-map (make-sparse-keymap) |
| 39 | "Keymap for Encoded-kbd minor mode.") | 39 | "Keymap for Encoded-kbd minor mode.") |