[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/org.el
From: |
Werner LEMBERG |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/org.el |
Date: |
Fri, 25 Mar 2005 04:03:25 -0500 |
Index: emacs/lisp/textmodes/org.el
diff -c emacs/lisp/textmodes/org.el:1.8 emacs/lisp/textmodes/org.el:1.9
*** emacs/lisp/textmodes/org.el:1.8 Mon Jan 17 10:18:56 2005
--- emacs/lisp/textmodes/org.el Fri Mar 25 09:03:23 2005
***************
*** 1,6 ****
;; org.el --- Outline-based notes management and organizer
;; Carstens outline-mode for keeping track of everything.
! ;; Copyright (c) 2003, 2004 Free Software Foundation
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar
--- 1,6 ----
;; org.el --- Outline-based notes management and organizer
;; Carstens outline-mode for keeping track of everything.
! ;; Copyright (c) 2003, 2004, 2005 Free Software Foundation
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar
***************
*** 2380,2386 ****
(setq new (1- current)))
((eq action 'down)
(setq new (1+ current)))
! (t (error "Illegal ection")))
(setq new (min (max ?A (upcase new)) org-lowest-priority))
(setq news (format "%c" new))
(if have
--- 2380,2386 ----
(setq new (1- current)))
((eq action 'down)
(setq new (1+ current)))
! (t (error "Invalid action")))
(setq new (min (max ?A (upcase new)) org-lowest-priority))
(setq news (format "%c" new))
(if have
***************
*** 5902,5914 ****
(string-to-int (match-string 1 form))
n0)
x (nth n fields))
! (unless x (error "Illegal field specifier \"%s\""
(match-string 0 form)))
(if (equal (string-to-number x) 0) (setq x "0"))
(setq form (replace-match x t t form)))
(setq ev (calc-eval (list form) 'num))
(if (listp ev)
! (error "Illegal expression: %s (%s at %d)" form (nth 1 ev) (car
ev)))
(org-table-blank-field)
(if fmt
(insert (format fmt (string-to-number ev)))
--- 5902,5914 ----
(string-to-int (match-string 1 form))
n0)
x (nth n fields))
! (unless x (error "Invalid field specifier \"%s\""
(match-string 0 form)))
(if (equal (string-to-number x) 0) (setq x "0"))
(setq form (replace-match x t t form)))
(setq ev (calc-eval (list form) 'num))
(if (listp ev)
! (error "Invalid expression: %s (%s at %d)" form (nth 1 ev) (car
ev)))
(org-table-blank-field)
(if fmt
(insert (format fmt (string-to-number ev)))
- [Emacs-diffs] Changes to emacs/lisp/textmodes/org.el,
Werner LEMBERG <=