Mercurial > emacs

comparison lisp/bindings.el @ 90988:492971a3f31f unicode-xft-base

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 816-823) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 59-69) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 237-238) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-235
author Miles Bader <miles@gnu.org>
date Tue, 24 Jul 2007 01:23:55 +0000
parents 52a7f3f50b89 422bb10d6d88
children f55f9811f5d7
comparison
equal deleted inserted replaced
90987:b2d8a283f27e 90988:492971a3f31f
246 'mouse-face 'mode-line-highlight)) 246 'mouse-face 'mode-line-highlight))
247 "Mode-line control for displaying whether current buffer is modified.") 247 "Mode-line control for displaying whether current buffer is modified.")
248 248
249 (make-variable-buffer-local 'mode-line-modified) 249 (make-variable-buffer-local 'mode-line-modified)
250 250
251 (defvar mode-line-remote
252 (list (propertize
253 "%1R"
254 'help-echo (purecopy (lambda (window object point)
255 (format "%s"
256 (save-selected-window
257 (select-window window)
258 (concat
259 (if (file-remote-p default-directory)
260 "Remote: "
261 "Local: ")
262 default-directory)))))))
263 "Mode-line flag to show if default-directory for current buffer is remote.")
264
265 (make-variable-buffer-local 'mode-line-remote)
266
251 ;; Actual initialization is below. 267 ;; Actual initialization is below.
252 (defvar mode-line-position nil 268 (defvar mode-line-position nil
253 "Mode-line control for displaying the position in the buffer. 269 "Mode-line control for displaying the position in the buffer.
254 Normally displays the buffer percentage and, optionally, the 270 Normally displays the buffer percentage and, optionally, the
255 buffer size, the line number and the column number.") 271 buffer size, the line number and the column number.")
285 (list 301 (list
286 "%e" 302 "%e"
287 (propertize "-" 'help-echo help-echo) 303 (propertize "-" 'help-echo help-echo)
288 'mode-line-mule-info 304 'mode-line-mule-info
289 'mode-line-modified 305 'mode-line-modified
306 'mode-line-remote
290 'mode-line-frame-identification 307 'mode-line-frame-identification
291 'mode-line-buffer-identification 308 'mode-line-buffer-identification
292 (propertize " " 'help-echo help-echo) 309 (propertize " " 'help-echo help-echo)
293 'mode-line-position 310 'mode-line-position
294 '(vc-mode vc-mode) 311 '(vc-mode vc-mode)