X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/7ac1c664547ca88fd6c0ff65ef5e780b1c5efcb0..3338398778900f0b66a2f20b947e31861384fe04:/lisp/bs.el diff --git a/lisp/bs.el b/lisp/bs.el index 0ce7670201..72b3e4c6fe 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -1,7 +1,6 @@ -;;; bs.el --- menu for selecting and displaying buffers +;;; bs.el --- menu for selecting and displaying buffers -*- lexical-binding: t -*- -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, -;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1998-2011 Free Software Foundation, Inc. ;; Author: Olaf Sylvester ;; Maintainer: Olaf Sylvester ;; Keywords: convenience @@ -43,14 +42,10 @@ ;;; Quick Installation und Customization: -;; Use +;; To display the bs menu, do ;; M-x bs-show -;; for buffer selection or optional bind a key to main function `bs-show' -;; (global-set-key "\C-x\C-b" 'bs-show) ;; or another key -;; -;; For customization use -;; M-x bs-customize - +;; To customize its behavior, do +;; M-x bs-customize ;;; More Commentary: @@ -698,7 +693,7 @@ Refresh whole Buffer Selection Menu." (call-interactively 'bs-set-configuration) (bs--redisplay t)) -(defun bs-refresh (&rest ignored) +(defun bs-refresh (&rest _ignored) "Refresh whole Buffer Selection Menu. Arguments are IGNORED (for `revert-buffer')." (interactive) @@ -1022,7 +1017,7 @@ A value of t means BUFFER belongs to no file. A value of nil means BUFFER belongs to a file." (not (buffer-file-name buffer))) -(defun bs-sort-buffer-interns-are-last (b1 b2) +(defun bs-sort-buffer-interns-are-last (_b1 b2) "Function for sorting internal buffers at the end of all buffers." (string-match-p "^\\*" (buffer-name b2))) @@ -1267,7 +1262,7 @@ or a string." fun) (t (apply fun args)))) -(defun bs--get-marked-string (start-buffer all-buffers) +(defun bs--get-marked-string (start-buffer _all-buffers) "Return a string which describes whether current buffer is marked. START-BUFFER is the buffer where we started buffer selection. ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu. @@ -1292,25 +1287,25 @@ The result string is one of `bs-string-current', `bs-string-current-marked', (t bs-string-show-always))) -(defun bs--get-modified-string (start-buffer all-buffers) +(defun bs--get-modified-string (_start-buffer _all-buffers) "Return a string which describes whether current buffer is modified. START-BUFFER is the buffer where we started buffer selection. ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu." (if (buffer-modified-p) "*" " ")) -(defun bs--get-readonly-string (start-buffer all-buffers) +(defun bs--get-readonly-string (_start-buffer _all-buffers) "Return a string which describes whether current buffer is read only. START-BUFFER is the buffer where we started buffer selection. ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu." (if buffer-read-only "%" " ")) -(defun bs--get-size-string (start-buffer all-buffers) +(defun bs--get-size-string (_start-buffer _all-buffers) "Return a string which describes the size of current buffer. START-BUFFER is the buffer where we started buffer selection. ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu." (int-to-string (buffer-size))) -(defun bs--get-name (start-buffer all-buffers) +(defun bs--get-name (_start-buffer _all-buffers) "Return name of current buffer for Buffer Selection Menu. The name of current buffer gets additional text properties for mouse highlighting. @@ -1320,13 +1315,13 @@ ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu." 'help-echo "mouse-2: select this buffer, mouse-3: select in other frame" 'mouse-face 'highlight)) -(defun bs--get-mode-name (start-buffer all-buffers) +(defun bs--get-mode-name (start-buffer _all-buffers) "Return the name of mode of current buffer for Buffer Selection Menu. START-BUFFER is the buffer where we started buffer selection. ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu." (format-mode-line mode-name nil nil start-buffer)) -(defun bs--get-file-name (start-buffer all-buffers) +(defun bs--get-file-name (_start-buffer _all-buffers) "Return string for column 'File' in Buffer Selection Menu. This is the variable `buffer-file-name' of current buffer. If not visiting a file, `list-buffers-directory' is returned instead. @@ -1425,18 +1420,18 @@ for buffer selection." (bs-show-in-buffer liste) (bs-message-without-log "%s" (bs--current-config-message))))) -(defun bs--configuration-name-for-prefix-arg (prefix-arg) - "Convert prefix argument PREFIX-ARG to a name of a buffer configuration. -If PREFIX-ARG is nil return `bs-default-configuration'. -If PREFIX-ARG is an integer return PREFIX-ARG element of `bs-configurations'. +(defun bs--configuration-name-for-prefix-arg (prefix) + "Convert prefix argument PREFIX to a name of a buffer configuration. +If PREFIX is nil return `bs-default-configuration'. +If PREFIX is an integer return PREFIX element of `bs-configurations'. Otherwise return `bs-alternative-configuration'." (cond ;; usually activation - ((null prefix-arg) + ((null prefix) bs-default-configuration) ;; call with integer as prefix argument - ((integerp prefix-arg) - (if (and (< 0 prefix-arg) (<= prefix-arg (length bs-configurations))) - (car (nth (1- prefix-arg) bs-configurations)) + ((integerp prefix) + (if (and (< 0 prefix) (<= prefix (length bs-configurations))) + (car (nth (1- prefix) bs-configurations)) bs-default-configuration)) ;; call by prefix argument C-u (t bs-alternative-configuration))) @@ -1486,5 +1481,4 @@ name of buffer configuration." ;; Now provide feature bs (provide 'bs) -;; arch-tag: c0d9ab34-bf06-4368-ae9d-af88878e6802 ;;; bs.el ends here