Mercurial > emacs
comparison lisp/menu-bar.el @ 100171:d42aff5ca541
* align.el:
* allout.el:
* apropos.el:
* arc-mode.el:
* autoinsert.el:
* avoid.el:
* battery.el:
* bookmark.el:
* buff-menu.el:
* calculator.el:
* chistory.el:
* cmuscheme.el:
* comint.el:
* compare-w.el:
* dabbrev.el:
* delim-col.el:
* desktop.el:
* diff-mode.el:
* diff.el:
* dired-aux.el:
* dired-x.el:
* dired.el:
* dos-vars.el:
* ediff-diff.el:
* ediff-help.el:
* ediff-init.el:
* ediff-merg.el:
* ediff-mult.el:
* ediff-ptch.el:
* ediff-vers.el:
* ediff-wind.el:
* ediff.el:
* emerge.el:
* facemenu.el:
* faces.el:
* ffap.el:
* filecache.el:
* find-dired.el:
* font-core.el:
* font-lock.el:
* forms.el:
* fringe.el:
* help-at-pt.el:
* hippie-exp.el:
* ido.el:
* image-file.el:
* imenu.el:
* indent.el:
* info.el:
* isearchb.el:
* iswitchb.el:
* jit-lock.el:
* jka-compr.el:
* log-edit.el:
* lpr.el:
* ls-lisp.el:
* man.el:
* menu-bar.el:
* midnight.el:
* mouse-sel.el:
* mouse.el:
* msb.el:
* outline.el:
* paren.el:
* pcmpl-cvs.el:
* pcmpl-gnu.el:
* pcomplete.el:
* pcvs-info.el:
* pcvs-parse.el:
* printing.el:
* ps-mule.el:
* ps-print.el:
* replace.el:
* ruler-mode.el:
* saveplace.el:
* sb-image.el:
* scroll-bar.el:
* sha1.el:
* shadowfile.el:
* shell.el:
* sort.el:
* speedbar.el:
* strokes.el:
* tempo.el:
* term.el:
* terminal.el:
* time-stamp.el:
* time.el:
* tree-widget.el:
* type-break.el:
* vc-cvs.el:
* vc-hg.el:
* vc-mcvs.el:
* vc-rcs.el:
* vc-sccs.el:
* vc.el:
* view.el:
* w32-vars.el:
* whitespace.el:
* wid-edit.el: Remove leading * from docstrings of defcustoms,
deffaces, defconsts and defuns.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Wed, 03 Dec 2008 05:48:14 +0000 |
| parents | 24e48b0174fa |
| children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
| 100170:86455974b971 | 100171:d42aff5ca541 |
|---|---|
| 1588 (setq count (1+ count))) | 1588 (setq count (1+ count))) |
| 1589 (setq frames (cdr frames))) | 1589 (setq frames (cdr frames))) |
| 1590 (> count 1))) | 1590 (> count 1))) |
| 1591 | 1591 |
| 1592 (defcustom yank-menu-length 20 | 1592 (defcustom yank-menu-length 20 |
| 1593 "*Maximum length to display in the yank-menu." | 1593 "Maximum length to display in the yank-menu." |
| 1594 :type 'integer | 1594 :type 'integer |
| 1595 :group 'menu) | 1595 :group 'menu) |
| 1596 | 1596 |
| 1597 (defun menu-bar-update-yank-menu (string old) | 1597 (defun menu-bar-update-yank-menu (string old) |
| 1598 (let ((front (car (cdr yank-menu))) | 1598 (let ((front (car (cdr yank-menu))) |
| 1630 | 1630 |
| 1631 | 1631 |
| 1632 ;;; Buffers Menu | 1632 ;;; Buffers Menu |
| 1633 | 1633 |
| 1634 (defcustom buffers-menu-max-size 10 | 1634 (defcustom buffers-menu-max-size 10 |
| 1635 "*Maximum number of entries which may appear on the Buffers menu. | 1635 "Maximum number of entries which may appear on the Buffers menu. |
| 1636 If this is 10, then only the ten most-recently-selected buffers are shown. | 1636 If this is 10, then only the ten most-recently-selected buffers are shown. |
| 1637 If this is nil, then all buffers are shown. | 1637 If this is nil, then all buffers are shown. |
| 1638 A large number or nil slows down menu responsiveness." | 1638 A large number or nil slows down menu responsiveness." |
| 1639 :type '(choice integer | 1639 :type '(choice integer |
| 1640 (const :tag "All" nil)) | 1640 (const :tag "All" nil)) |
| 1641 :group 'menu) | 1641 :group 'menu) |
| 1642 | 1642 |
| 1643 (defcustom buffers-menu-buffer-name-length 30 | 1643 (defcustom buffers-menu-buffer-name-length 30 |
| 1644 "*Maximum length of the buffer name on the Buffers menu. | 1644 "Maximum length of the buffer name on the Buffers menu. |
| 1645 If this is a number, then buffer names are truncated to this length. | 1645 If this is a number, then buffer names are truncated to this length. |
| 1646 If this is nil, then buffer names are shown in full. | 1646 If this is nil, then buffer names are shown in full. |
| 1647 A large number or nil makes the menu too wide." | 1647 A large number or nil makes the menu too wide." |
| 1648 :type '(choice integer | 1648 :type '(choice integer |
| 1649 (const :tag "Full length" nil)) | 1649 (const :tag "Full length" nil)) |