Mercurial > emacs
comparison lisp/printing.el @ 90711:25387147db14
Replace easy-menu-change by easy-menu-add-item.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Mon, 04 Dec 2006 15:03:21 +0000 |
| parents | 0b79f231aae3 |
| children | 95d0cdf160ea |
comparison
equal
deleted
inserted
replaced
| 90710:0b79f231aae3 | 90711:25387147db14 |
|---|---|
| 3110 (setq pr-menu-print-item nil | 3110 (setq pr-menu-print-item nil |
| 3111 pr-menu-bar (vector 'menu-bar | 3111 pr-menu-bar (vector 'menu-bar |
| 3112 (pr-get-symbol (nth 1 menu-file)) | 3112 (pr-get-symbol (nth 1 menu-file)) |
| 3113 (pr-get-symbol "Print")))) | 3113 (pr-get-symbol "Print")))) |
| 3114 (t | 3114 (t |
| 3115 (easy-menu-change (cdr menu-file) "Print" pr-menu-spec)))))))) | 3115 (easy-menu-add-item global-map menu-file |
| 3116 (easy-menu-create-menu "Print" pr-menu-spec))) | |
| 3117 )))))) | |
| 3116 (pr-update-menus t)) | 3118 (pr-update-menus t)) |
| 3117 | 3119 |
| 3118 | 3120 |
| 3119 ;; Key binding | 3121 ;; Key binding |
| 3120 (let ((pr-print-key (if (featurep 'xemacs) | 3122 (let ((pr-print-key (if (featurep 'xemacs) |