diff options
Diffstat (limited to 'lisp/org/ol.el')
| -rw-r--r-- | lisp/org/ol.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/org/ol.el b/lisp/org/ol.el index f9816a187da..a9e613e0d4e 100644 --- a/lisp/org/ol.el +++ b/lisp/org/ol.el @@ -646,7 +646,7 @@ followed by another \"%[A-F0-9]{2}\" group." (cons 6 128)))) (when (>= val 192) (setq eat (car shift-xor))) (setq val (logxor val (cdr shift-xor))) - (setq sum (+ (lsh sum (car shift-xor)) val)) + (setq sum (+ (ash sum (car shift-xor)) val)) (when (> eat 0) (setq eat (- eat 1))) (cond ((= 0 eat) ;multi byte @@ -1580,14 +1580,6 @@ non-nil." nil nil nil)))) (org-link-store-props :type "calendar" :date cd))) - ((eq major-mode 'w3-mode) - (setq cpltxt (if (and (buffer-name) - (not (string-match "Untitled" (buffer-name)))) - (buffer-name) - (url-view-url t)) - link (url-view-url t)) - (org-link-store-props :type "w3" :url (url-view-url t))) - ((eq major-mode 'image-mode) (setq cpltxt (concat "file:" (abbreviate-file-name buffer-file-name)) |