169 |
coding system for keyboard input (if Emacs is running on terminal) |
coding system for keyboard input (if Emacs is running on terminal) |
170 |
coding system for terminal output (if Emacs is running on terminal)" |
coding system for terminal output (if Emacs is running on terminal)" |
171 |
;; Currently not: |
;; Currently not: |
172 |
;;; coding system for decoding output of buffer process (if any) |
;; coding system for decoding output of buffer process (if any) |
173 |
;;; coding system for encoding text to send to buffer process (if any)." |
;; coding system for encoding text to send to buffer process (if any)." |
174 |
) |
) |
175 |
|
|
176 |
(make-variable-buffer-local 'mode-line-mule-info) |
(make-variable-buffer-local 'mode-line-mule-info) |
230 |
(let* ((help-echo |
(let* ((help-echo |
231 |
;; The multi-line message doesn't work terribly well on the |
;; The multi-line message doesn't work terribly well on the |
232 |
;; bottom mode line... Better ideas? |
;; bottom mode line... Better ideas? |
233 |
;;; "\ |
;; "\ |
234 |
;;; mouse-1: select window, mouse-2: delete others, mouse-3: delete, |
;; mouse-1: select window, mouse-2: delete others, mouse-3: delete, |
235 |
;;; drag-mouse-1: resize, C-mouse-2: split horizontally" |
;; drag-mouse-1: resize, C-mouse-2: split horizontally" |
236 |
"mouse-1: select (drag to resize), mouse-2: delete others, mouse-3: delete") |
"mouse-1: select (drag to resize), mouse-2: delete others, mouse-3: delete") |
237 |
(dashes (propertize "--" 'help-echo help-echo))) |
(dashes (propertize "--" 'help-echo help-echo))) |
238 |
(setq-default mode-line-format |
(setq-default mode-line-format |
239 |
(list |
(list |
240 |
(propertize "-" 'help-echo help-echo) |
(propertize "-" 'help-echo help-echo) |
309 |
|
|
310 |
(defun mode-line-mode-name () "\ |
(defun mode-line-mode-name () "\ |
311 |
Return a string to display in the mode line for the current mode name." |
Return a string to display in the mode line for the current mode name." |
312 |
(let (length (result mode-name)) |
(when (stringp mode-name) |
313 |
(let ((local-map (get-text-property 0 'local-map result)) |
(let ((local-map (get-text-property 0 'local-map mode-name)) |
314 |
(help-echo (get-text-property 0 'help-echo result))) |
(help-echo (get-text-property 0 'help-echo mode-name))) |
315 |
(setq result (copy-sequence result)) |
;; For correctness, we shouldn't modify mode-name. But adding some |
316 |
|
;; text-properties to those mode-name strings can't hurt, really, and |
317 |
|
;; furthermore, by doing it in-place, we make sure that we don't need to |
318 |
|
;; do the work over and over and over and .... -stef |
319 |
|
(unless (and local-map help-echo) |
320 |
|
(setq mode-name (copy-sequence mode-name))) |
321 |
;; Add `local-map' property if there isn't already one. |
;; Add `local-map' property if there isn't already one. |
322 |
(when (and (null local-map) |
(unless (or local-map |
323 |
(null (next-single-property-change 0 'local-map result))) |
(next-single-property-change 0 'local-map mode-name)) |
324 |
(put-text-property 0 (length result) |
(put-text-property 0 (length mode-name) |
325 |
'local-map mode-line-minor-mode-keymap result)) |
'local-map mode-line-minor-mode-keymap mode-name) |
326 |
;; Add `help-echo' property if there isn't already one. |
;; Add `help-echo' property if there isn't already one. |
327 |
(when (and (null help-echo) |
(unless (or help-echo |
328 |
(null (next-single-property-change 0 'help-echo result))) |
(next-single-property-change 0 'help-echo mode-name)) |
329 |
(put-text-property 0 (length result) |
(put-text-property 0 (length mode-name) 'help-echo |
330 |
'help-echo "mouse-3: minor mode menu" result))) |
"mouse-3: minor mode menu" mode-name))))) |
331 |
result)) |
mode-name) |
332 |
|
|
333 |
(defmacro bound-and-true-p (var) |
(defmacro bound-and-true-p (var) |
334 |
"Return the value of symbol VAR if it is bound, else nil." |
"Return the value of symbol VAR if it is bound, else nil." |
548 |
(make-variable-buffer-local 'indent-tabs-mode) |
(make-variable-buffer-local 'indent-tabs-mode) |
549 |
|
|
550 |
;; We have base64 and md5 functions built in now. |
;; We have base64 and md5 functions built in now. |
551 |
(add-to-list 'features 'base64) |
(provide 'base64) |
552 |
(add-to-list 'features 'md5) |
(provide 'md5) |
553 |
(add-to-list 'features 'overlay) |
(provide 'overlay '(display syntax-table field)) |
554 |
|
(provide 'text-properties '(display syntax-table field point-entered)) |
555 |
|
|
556 |
(define-key esc-map "\t" 'complete-symbol) |
(define-key esc-map "\t" 'complete-symbol) |
557 |
|
|
588 |
|
|
589 |
(make-variable-buffer-local 'minor-mode-overriding-map-alist) |
(make-variable-buffer-local 'minor-mode-overriding-map-alist) |
590 |
|
|
591 |
|
;; From macros.c |
592 |
|
(define-key ctl-x-map "(" 'start-kbd-macro) |
593 |
|
(define-key ctl-x-map ")" 'end-kbd-macro) |
594 |
|
(define-key ctl-x-map "e" 'call-last-kbd-macro) |
595 |
|
;; From frame.c |
596 |
|
(global-set-key [switch-frame] 'handle-switch-frame) |
597 |
|
(global-set-key [delete-frame] 'handle-delete-frame) |
598 |
|
(global-set-key [iconify-frame] 'ignore-event) |
599 |
|
(global-set-key [make-frame-visible] 'ignore-event) |
600 |
|
|
601 |
|
|
602 |
;These commands are defined in editfns.c |
;These commands are defined in editfns.c |
603 |
;but they are not assigned to keys there. |
;but they are not assigned to keys there. |
604 |
(put 'narrow-to-region 'disabled t) |
(put 'narrow-to-region 'disabled t) |
606 |
(define-key ctl-x-map "nw" 'widen) |
(define-key ctl-x-map "nw" 'widen) |
607 |
;; (define-key ctl-x-map "n" 'narrow-to-region) |
;; (define-key ctl-x-map "n" 'narrow-to-region) |
608 |
;; (define-key ctl-x-map "w" 'widen) |
;; (define-key ctl-x-map "w" 'widen) |
|
(define-key ctl-x-map "(" 'start-kbd-macro) |
|
|
(define-key ctl-x-map ")" 'end-kbd-macro) |
|
|
(define-key ctl-x-map "e" 'call-last-kbd-macro) |
|
609 |
|
|
610 |
(define-key global-map "\C-j" 'newline-and-indent) |
(define-key global-map "\C-j" 'newline-and-indent) |
611 |
(define-key global-map "\C-m" 'newline) |
(define-key global-map "\C-m" 'newline) |
975 |
|
|
976 |
(define-key ctl-x-map "z" 'repeat) |
(define-key ctl-x-map "z" 'repeat) |
977 |
|
|
978 |
;;; Don't look for autoload cookies in this file. |
;; Don't look for autoload cookies in this file. |
979 |
;;; Local Variables: |
;; Local Variables: |
980 |
;;; no-update-autoloads: t |
;; no-update-autoloads: t |
981 |
;;; End: |
;; End: |
982 |
|
|
983 |
;;; bindings.el ends here |
;;; bindings.el ends here |