Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 109033:d150a25a0eb9
Add some utf-8 coding cookies.
* lisp/calc/calc-aent.el, lisp/calc/calc-ext.el, lisp/calc/calc-lang.el:
* lisp/calc/calc-store.el, lisp/calc/calc-units.el, lisp/calc/calc.el:
* lisp/calc/calccomp.el:
Add explicit utf-8 coding cookies to files with utf-8 characters.
Also delete trailing whitespace.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 22 Jun 2010 00:41:10 -0700 |
| parents | 429144ae3b54 |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 109032:d8720405694a | 109033:d150a25a0eb9 |
|---|---|
| 1 ;;; calc-ext.el --- various extension functions for Calc | 1 ;;; calc-ext.el --- various extension functions for Calc |
| 2 | 2 |
| 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, | 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 2005, |
| 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: David Gillespie <daveg@synaptics.com> | 6 ;; Author: David Gillespie <daveg@synaptics.com> |
| 7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> | 7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> |
| 8 | 8 |
| 9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
| 958 math-map-vec-2 math-mat-col math-mimic-ident math-prepare-set | 958 math-map-vec-2 math-mat-col math-mimic-ident math-prepare-set |
| 959 math-read-brackets math-reduce-cols math-reduce-vec math-transpose) | 959 math-read-brackets math-reduce-cols math-reduce-vec math-transpose) |
| 960 | 960 |
| 961 ("calc-yank" calc-alg-edit calc-clean-newlines | 961 ("calc-yank" calc-alg-edit calc-clean-newlines |
| 962 calc-do-grab-rectangle calc-do-grab-region calc-finish-stack-edit | 962 calc-do-grab-rectangle calc-do-grab-region calc-finish-stack-edit |
| 963 calc-copy-to-register calc-insert-register | 963 calc-copy-to-register calc-insert-register |
| 964 calc-append-to-register calc-prepend-to-register | 964 calc-append-to-register calc-prepend-to-register |
| 965 calc-force-refresh calc-locate-cursor-element calc-show-edit-buffer) | 965 calc-force-refresh calc-locate-cursor-element calc-show-edit-buffer) |
| 966 | 966 |
| 967 )) | 967 )) |
| 968 | 968 |
| 987 ("calc-arith" calc-abs calc-abssqr calc-ceiling calc-decrement | 987 ("calc-arith" calc-abs calc-abssqr calc-ceiling calc-decrement |
| 988 calc-floor calc-idiv calc-increment calc-mant-part calc-max calc-min | 988 calc-floor calc-idiv calc-increment calc-mant-part calc-max calc-min |
| 989 calc-round calc-scale-float calc-sign calc-trunc calc-xpon-part) | 989 calc-round calc-scale-float calc-sign calc-trunc calc-xpon-part) |
| 990 | 990 |
| 991 ("calc-bin" calc-and calc-binary-radix calc-clip calc-twos-complement-mode | 991 ("calc-bin" calc-and calc-binary-radix calc-clip calc-twos-complement-mode |
| 992 calc-decimal-radix calc-diff calc-hex-radix calc-leading-zeros | 992 calc-decimal-radix calc-diff calc-hex-radix calc-leading-zeros |
| 993 calc-lshift-arith calc-lshift-binary calc-not calc-octal-radix calc-or calc-radix | 993 calc-lshift-arith calc-lshift-binary calc-not calc-octal-radix calc-or calc-radix |
| 994 calc-rotate-binary calc-rshift-arith calc-rshift-binary calc-word-size | 994 calc-rotate-binary calc-rshift-arith calc-rshift-binary calc-word-size |
| 995 calc-xor) | 995 calc-xor) |
| 996 | 996 |
| 997 ("calc-comb" calc-choose calc-double-factorial calc-extended-gcd | 997 ("calc-comb" calc-choose calc-double-factorial calc-extended-gcd |
| 1413 (eq major-mode 'calc-keypad-mode) | 1413 (eq major-mode 'calc-keypad-mode) |
| 1414 (eq major-mode 'calc-trail-mode)) | 1414 (eq major-mode 'calc-trail-mode)) |
| 1415 (with-current-buffer calc-main-buffer | 1415 (with-current-buffer calc-main-buffer |
| 1416 calc-option-flag) | 1416 calc-option-flag) |
| 1417 calc-option-flag)) | 1417 calc-option-flag)) |
| 1418 (msg | 1418 (msg |
| 1419 (cond | 1419 (cond |
| 1420 ((and opt-flag hyp-flag) "Option Inverse Hyperbolic...") | 1420 ((and opt-flag hyp-flag) "Option Inverse Hyperbolic...") |
| 1421 (hyp-flag "Inverse Hyperbolic...") | 1421 (hyp-flag "Inverse Hyperbolic...") |
| 1422 (opt-flag "Option Inverse...") | 1422 (opt-flag "Option Inverse...") |
| 1423 (t "Inverse...")))) | 1423 (t "Inverse...")))) |
| 1503 (eq major-mode 'calc-keypad-mode) | 1503 (eq major-mode 'calc-keypad-mode) |
| 1504 (eq major-mode 'calc-trail-mode)) | 1504 (eq major-mode 'calc-trail-mode)) |
| 1505 (with-current-buffer calc-main-buffer | 1505 (with-current-buffer calc-main-buffer |
| 1506 calc-option-flag) | 1506 calc-option-flag) |
| 1507 calc-option-flag)) | 1507 calc-option-flag)) |
| 1508 (msg | 1508 (msg |
| 1509 (cond | 1509 (cond |
| 1510 ((and opt-flag inv-flag) "Option Inverse Hyperbolic...") | 1510 ((and opt-flag inv-flag) "Option Inverse Hyperbolic...") |
| 1511 (opt-flag "Option Hyperbolic...") | 1511 (opt-flag "Option Hyperbolic...") |
| 1512 (inv-flag "Inverse Hyperbolic...") | 1512 (inv-flag "Inverse Hyperbolic...") |
| 1513 (t "Hyperbolic...")))) | 1513 (t "Hyperbolic...")))) |
| 1514 (calc-fancy-prefix 'calc-hyperbolic-flag msg n))) | 1514 (calc-fancy-prefix 'calc-hyperbolic-flag msg n))) |
| 1535 (eq major-mode 'calc-keypad-mode) | 1535 (eq major-mode 'calc-keypad-mode) |
| 1536 (eq major-mode 'calc-trail-mode)) | 1536 (eq major-mode 'calc-trail-mode)) |
| 1537 (with-current-buffer calc-main-buffer | 1537 (with-current-buffer calc-main-buffer |
| 1538 calc-hyperbolic-flag) | 1538 calc-hyperbolic-flag) |
| 1539 calc-hyperbolic-flag)) | 1539 calc-hyperbolic-flag)) |
| 1540 (msg | 1540 (msg |
| 1541 (cond | 1541 (cond |
| 1542 ((and hyp-flag inv-flag) "Option Inverse Hyperbolic...") | 1542 ((and hyp-flag inv-flag) "Option Inverse Hyperbolic...") |
| 1543 (hyp-flag "Option Hyperbolic...") | 1543 (hyp-flag "Option Hyperbolic...") |
| 1544 (inv-flag "Option Inverse...") | 1544 (inv-flag "Option Inverse...") |
| 1545 (t "Option...")))) | 1545 (t "Option...")))) |
| 1546 (calc-fancy-prefix 'calc-option-flag msg n))) | 1546 (calc-fancy-prefix 'calc-option-flag msg n))) |
| 1700 "The history list for calc-execute-extended-command.") | 1700 "The history list for calc-execute-extended-command.") |
| 1701 | 1701 |
| 1702 (defun calc-execute-extended-command (n) | 1702 (defun calc-execute-extended-command (n) |
| 1703 (interactive "P") | 1703 (interactive "P") |
| 1704 (let* ((prompt (concat (calc-num-prefix-name n) "M-x ")) | 1704 (let* ((prompt (concat (calc-num-prefix-name n) "M-x ")) |
| 1705 (cmd (intern | 1705 (cmd (intern |
| 1706 (completing-read prompt obarray 'commandp t "calc-" | 1706 (completing-read prompt obarray 'commandp t "calc-" |
| 1707 'calc-extended-command-history)))) | 1707 'calc-extended-command-history)))) |
| 1708 (setq prefix-arg n) | 1708 (setq prefix-arg n) |
| 1709 (command-execute cmd))) | 1709 (command-execute cmd))) |
| 1710 | 1710 |
| 1711 | 1711 |
| 3498 | 3498 |
| 3499 (run-hooks 'calc-ext-load-hook) | 3499 (run-hooks 'calc-ext-load-hook) |
| 3500 | 3500 |
| 3501 (provide 'calc-ext) | 3501 (provide 'calc-ext) |
| 3502 | 3502 |
| 3503 ;; Local variables: | |
| 3504 ;; coding: utf-8 | |
| 3505 ;; End: | |
| 3506 | |
| 3503 ;; arch-tag: 1814ba7f-a390-49dc-9e25-a5adc205e97e | 3507 ;; arch-tag: 1814ba7f-a390-49dc-9e25-a5adc205e97e |
| 3504 ;;; calc-ext.el ends here | 3508 ;;; calc-ext.el ends here |