/[emacs]/emacs/lisp/bindings.el
ViewVC logotype

Diff of /emacs/lisp/bindings.el

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

revision 1.87 by rms, Wed Oct 31 21:57:21 2001 UTC revision 1.88 by monnier, Sat Nov 17 00:27:08 2001 UTC
# Line 169  mnemonics of the following coding system Line 169  mnemonics of the following coding system
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)
# Line 230  Normally nil in most modes, since there Line 230  Normally nil in most modes, since there
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)
# Line 309  Menu of mode operations in the mode line Line 309  Menu of mode operations in the mode line
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."
# Line 543  is okay.  See `mode-line-format'.") Line 548  is okay.  See `mode-line-format'.")
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    
# Line 582  language you are using." Line 588  language you are using."
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)
# Line 589  language you are using." Line 606  language you are using."
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)
# Line 961  language you are using." Line 975  language you are using."
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

Legend:
Removed from v.1.87  
changed lines
  Added in v.1.88

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